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The following pages contain the CP/M--86/80 operating system BIOS listings. Note the follow- 
ing differences: 

• The BIOS has a missing POP instruction in a section of code which is apparently never 
invoked. It should have been at location 40:2E3C. 

• The PRMTVPVT code (actually the ZSOcode.ASM) has an incorrectly labeled argument in 
the multi-sector read routine. The BIOS never calls for multi-sectored reads, so it does not 
normally cause problems. (The operand at location 023A (hex) should be SECTN rather 
than SECNUM.) 

• The diskette read/write code in ZSOcode.ASM has a timing "window" which can give false 
"disk not ready" error messages. 

• The SUBMIT command does not work correctly from a non-boot drive. 

• The transient program area for a 64K Rainbow'^ 100 computer is 47-1 /2K bytes. 



Page 1 



CP/M MACRO ASSEM 2.0 #001 PC-100 COLD BOOT (TRACK 0, SECTOR 1) 
COLD BOOT PROGRAM FOR DEC PC-100 



LOADS CPL LOADER INTO MEMORY FROM SYSTEM TRACKS 
READ INTO SPECIFIED LOCATION BY ROM BOOT 



MACLIB Z80 
CONDITIONALIZE FOR TRACK OR TRACK 1 

OFFH ; (FF=BOOT100, 0=BOOT101) 
•PC-100 COLD BOOT (TRACK 0, SECTOR 1) ' 



OOFF = 



0008 
OOOA 



BOOTIOO EQU 
IF BOOTIOO 

TITLE 
ENDIF 

IF NOT BOOTIOO 
TITLE 

ENDIF 



'RX-50 STANDARD COLD BOOT (TRACK 1, SECTOR 1) ' 
ERROR AND COMPLETION CODES FOR THE 8088 ROM 



QERCOD EQU 08H ;ERROR CODE (CHECK THIS) 

QSTCOD EQU OAH ;COMPLETION CODE (CHECK THIS) 



SYSTEM ADDRESSES FOR LOAD AND START 



0000 




QLLOAD EQU 





; LOADER OFFSET 


ODAO 




QLLDSEG EQU 


ODAOH 


; LOADER SEGMENT 


DAOO 




QALLOAD EQU 


QLLDSEG* 


1 6+QLLOAD ; ABSOLUTE 


0000 




QPRIMS EQU 





;PRIMITVES 


0002 




QLDSEC EQU 


2 


/LOADER SECTOR (MINUS 1) 


OFFF 




QSEMA4 EQU 


OFFFH 


; SEMAPHORE ADDRESS 


OFFD 




QLDSSEG EQU 


OFFDH 


; LOADER SEGMENT STORED 


OFFB 




QLDSOFF EQU 


OFFBH 


; LOADER OFFSET STORED 


OFFA 




QDRNO EQU 


OFFAH 


; STORE DRIVE NUMBER 


0100 




PRIMST EQU 


lOOH 


; PRIMITIVE START 






; DISK CONSTANTS 




OOOA 




QKSECTRK EQU 


10 


; SECTORS PER TRACK 


0200 




QKSECSIZ EQU 


512 


; BYTES PER SECTOR 






; PC-100 PORT 


ADDRESSES 




0060 




QPCOMD EQU 


60H 


; FDC COMMAND/STATUS REG 


0061 




QPTRKRG EQU 


61H 


; FDC TRACK REG 


0062 




QPSECRG EQU 


62H 


; FDC SECTOR REG 


0063 




QPDATA EQU 


63H 


; FDC DATA REG 
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0040 = 



QPSTAT EQU 40H ; GENERAL FD STATUS REG 

DISK CONTROLLER COMMANDS 



0008 = QCREST EQU 

005C = QCSTEPIN EQU 

0080 = QCREADS EQU 

OODO = QCTERM EQU 

CP/M MACRO ASSEM 2.0 #002 



08H 
5CH 
80H 
ODOH 



RESTORE (HEAD LOAD) 
STEP IN 
READ SECTOR 

TERMINATE COMMAND (FORCE INT.) 



PC-100 COLD BOOT (TRACK 0, SECTOR 1) 



DISK CONTROLLER STATUS - TYPE 1 COMMANDS 



0080 


= 


QMNRDY EQU 


80H 


' NOT READY 


0040 




QMWPROT EQU 


40H 


• WRITE PROTECTED 


0020 




QMHLT EQU 


20H 


f HEAD LOADED 


0010 


= 


QMSKERR EQU 


lOH 


' SEEK ERROR 


0008 




QMCRC EQU 


8 


• CRC ERROR 


0004 


= 


QMTZERO EQU 


4 


' TRACK ZERO 


0002 




QMINDEX EQU 


2 


• INDEX 


0001 




QMBUSY EQU 


1 


• CONTROLLER BUSY 






; DISK CONTROLLER STATUS 


- TYPE 2 AND 3 COMMANDS 


0020 




QMWRFLT EQU 


20H 


r WRITE FAULT 


0010 




QMRNF EQU 


lOH 


' RECORD NOT FOUND 


0004 




QMLDATA EQU 


4 


• LOST DATA 


0002 




QMDRQ EQU 


2 


? DATA REQUEST 






; ERROR MASKS 


FOR OPERATIONS 


009C 




QMREAD EQU 


QMNRDY+QMRNF+QMCRC+QMLDATA ; READ SECTOR 


0098 




QMSEEK EQU 


QMNRDY+QMSKERR+QMCRC ; POSITIONING OPN. 






; MISCELLANEOUS EQUATES 




1000 




BOOTORG EQU 


lOOOH 


; WHERE AM I? 


1100 




QLSTACK EQU 


BOOTORG+IOOH ; STACK LOCATION 



************************************************ 

* ASSERT Z-FLIP, THEN GO TO THE LOADER * 

* WITH A PCHL COMMAND * 
************************************************ 



8000 = FLIP EQU 8000H 

00E9 = GOWAN EQU PCHL 

0021 = ZFLIP EQU 21H 

1000 ORG BOOTORG 

IF NOT BOOTIOO 

.************************************************ 

;* RX-50 STANDARD PREFIX BYTES * 

************************************************* 



DB 



. ** TYPE 2 BOOT BLOCK ** 
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DB 



CP/M MACRO ASSEM 2.0 



DB 

DB 3 

DB 1 

DB 


DB 40H 

DB 18H 

DB 40H 

DB 67H 

DB 

#003 PC-100 COLD BOOT (TRACK 0, SECTOR 1) 



** OFFSET TO IDENT BLOCK (WORDS) 

(6 BYTES, N=6) ** 
** SYSTEM=1\ DATA=0 ** 



** 100 OCTAL = Z80 ** 

** 30 OCTAL = RAINBOW 100 ** 

** 100 OCTAL = CP/M ** 

** CHECKSUM FOR 96H ** 



1000 F3 

1001 3EE9 
1003 320D10 
1006 210E10 
1009 3EF9 
lOOB D321 
lOOD E9 



ENDIF ; START HERE . 
DI 

MVI A,GOWAN 
STA RSTSPOT 
LXI H,BOOT00 
MVI A,0F9H 
OUT ZFLIP 
RSTSPOT: PCHL 



;N0 INTERRUPTS, PLEASE 

;LOAD PCHL INSTRUCTION 

;MOVE IT OUT 

;GET BOOT START IN HL 

;TURN OF L.E.D.S 

;FLIP 

;G0 TO BOOT 



BOOTOO: 



lOOE 


310011 


LXI 


SP,QLSTACK ; 


SET UP STACK POINTER 






BOOTIO: 






1011 


DB60 


IN 


QPCOMD ; 


GET FDC STATUS 


1013 


E601 


AN I 


QMBUSY ; 


READY FOR COMMAND? (QMNRDY+) 






JRNZ 


BOOTIO ; 


NOT YET - WAIT 


1015+20FA 


DB 


20H,BOOT10-$-l 








; MAIN LOOP ~ 


RESTORE DISK AND INITIALIZE FOR READING 


1017 


DB40 


IN 


QPSTAT ; 


GET DRIVE NUMBER 


1019 


E603 


AN I 


3 ; 


MASK OUT OTHER BITS 


lOlB 


32FA0F 


STA 


QDRNO ; 


STORE IT FOR LATER 


lOlE 


3E08 


MVI 


A,QCREST ; 




1020 


CD8C10 


CALL 


BOOTCMD ; 


RESTORE DISK 


1023 


3E02 


MVI 


A,QLDSEC 




FIRST SECTOR 


1025 


32B410 


STA 


BOOTSEC ; 




STORE 


1028 


0614 


MVI 


B,QKSECTRK*2 ; 




SECTORS IN TWO TRACKS 


102A 


0E63 


MVI 


C , QPDATA ; 




PORT NUMBER 


102C 


21B510 


LXI 


H,ADTAB ; 




LOAD ADDRESS TABLE START 


102F 


5E 


BOOTH: MOV 


E,M 




GET LOAD ADDRESS FORM TABLE 


1030 


23 


INX 


H 






1031 


56 


MOV 


D,M 




• HIGH ORDER ADDRESS 


1032 


23 


INX 


H 






1033 


E5 


PUSH 


H 




• SAVE ADDRESS FOR LATER 


1034 


EB 


XCHG 






' ADDRESS IN HL 


1035 


C5 


PUSH 


B 




f SAVE COUNT AND PORT NUMBER 


1036 


7D 


MOV 


A,L 




? LOOK AT LOW-ORDER 
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1037 FEFF 


CPI 


OFFH 






7 


• LOW ORDER ILLEGAL (FLi 




JRZ 


B00T12 






7 


] SKIP IF SO 


1039+2806 


DB 


28H,BOOT12- 




1 






103B 3AB410 


LDA 


BOOTSEC 






• 




103E CD6110 


CALL 


BOOT20 






• 


? LOAD A SECTOR 


1041 3AB410 


B00T12: LDA 


BOOTSEC 








? GET THE SECTOR NUMBER 


1044 3C 


INR 


A 








? BUMP IT 


1045 32B410 


STA 


BOOTSEC 








? STORE IT 


1048 CI 


POP 


B 






. 


} RETURN REGISTERS 


1049 El 


POP 


H 






7 




104A 05 


DCR 


B 






7 


• BUMP THE COUNT 




JRNZ 


BOOTH 








? LOOP BACK UNTIL DONE 


104B+20E2 


DB 


20H,BOOT11- 


$- 


1 






104D 210000 


LXI 


H,QLLOAD 






7 


LOADER START 



CP/M MACRO ASSEM 2.0 



#004 



PC-100 COLD BOOT (TRACK Q, SECTOR 1) 



1050 22FB0F 
1053 21A00D 
1056 22FD0F 
1059 3E0A 
105B 32FF0F 
105E C30001 



1082 3ED0 
1084 D360 
1086 3E08 
1088 32FF0F 
108B 76 



SHLD 

LXI 

SHLD 

MVI 

STA 

JMP 



QLDSOFF 

H^QLLDSEG 

QLDSSEG 

A,QSTCOD 

QSEMA4 

PRIMST 



STORED OFFSET 

LOADER SEGMENT 

TO INFO WORD 

COMPLETION CODE 

FLAG 8088 FOR COMPLETION 

GO START PRIMITIVES 



PRIMARY SUBROUTINE 



READS AND LOADS SECTORS 



1061 FEOB 


BOOT20: 


CPI 


QKSECTRK+1 






7 7 


HAVE WE GONE PAST LAST TRACK? 






JRC 


B00T21 






7 7 


JUMP AHEAD IF NOT 


1063+3813 




DB 


38H,BOOT21- 


$- 


1 






1065 D60A 




SUI 


QKSECTRK 






7 7 


RESET TO LOW SECT FOR NEXT TRACK 


1067 32B410 




STA 


BOOTSEC 






7 7 


RE-STORE IT 


106A 3E5C 




MVI 


A.QCSTEPIN 






7 7 


STEP IN TO NEXT TRACK 


106C CD8C10 




CALL 


BOOTCMD 






7 7 




106F DB60 




IN 


QPCOMD 






7 7 


GET FDC STATUS 


1071 E698 




AN I 


QMSEEK 






7 7 


ERROR? 






JRNZ 


BOOT90 






7 7 


GO TAKE CARE OF IT IF SO 


1073+200D 




DB 


20H,BOOT90- 


$- 


1 






1075 3AB410 




LDA 


BOOTSEC 






7 7 


GET SECTOR NUMBER 


1078 CD9710 


B00T21: 


CALL 


BOOTREAD 






7 7 


READ A SECTOR 


107B DB60 




IN 


QPCOMD 






7 7 


GET FDC STATUS 


107D E69C 




AN I 


QMREAD 






7 7 


READ ERROR? 






JRNZ 


BOOT90 






7 7 


TAKE CARE OF IT IF SO 


107F+2001 




DB 


20H,BOOT90- 


$- 


1 






1081 C9 




RET 








7 7 


ELSE RETURN 



HANDLE ERROR CONDITIONS - RESTART BOOT 



BOOT 90.: 



MVI 
OUT 
MVI 
STA 
HLT 



A^QCTERM 
QPCOMD 
A.QERCOD 
QSEMA4 



TERMINATE COMMAND 
ERROR CODE 

IN SEMAPHORE LOCATION 
GIVE UP 



SUBROUTINE BOOTCMD 
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108C D360 
108E CDADIO 

1091 DB40 

1093 87 

1094 F8 

1095+18FA 



SEND COMMAND (NO DATA) TO FDC AND WAIT FOR COMPLETION 
COMMAND IS IN REG. A 



BOOTCMD: 

OUT 
CALL 
BOOTCMDl: 
IN 
ADD 
RM 
JR 
DB 



QPCOMD 
DLY28M 

QPSTAT 
A 

BOOTCMDl 

18H,B00TCMD1~$-1 



SUBROUTINE BOOTREAD 

READ A SECTOR INTO (HL) 
SECTOR NUMBER IS IN REG. 



SEND COMMAND TO FDC 

DELAY ABOUT 28 MICROSECONDS 

GET GENERAL STATUS 
SHIFT INT. BIT TO SIGN 
RETURN ON INTERRUPT 
WAIT FOR COMPLETION 



CP/M MACRO ASSEM 2.0 



#005 



PC-100 COLD BOOT (TRACK Q, SECTOR 1) 



BOOTREAD: 



1097 D362 


OUT 


QPSECRG 




f 


WRITE SECTOR NUMBER 


1099 CDBOlO 


CALL 


DLY14M 




I 


DELAY ABOUT 14 MICROSECONDS 


109C 3E80 


MVI 


A, QC READS 








109E D360 


OUT 


QPCOMD 






SEND REAP SECTOR COMMAND 


lOAO CDADIO 


CALL 


DLY28M 






DELAY ABOUT 28 MICROSECONDS 




BOOTRDIO: 










10A3 DB40 


IN 


QPSTAT 






GET GENERAL STATUS 


10A5 87 


ADD 


A 






SHIFT INT. BIT TO SIGN 


10A6 F8 


RM 








RETURN ON INTERRUPT 




JRNC 


BOOTRDIO 






LOOP IF NO DRQ 


10A7+30FA 


DB 


30H,BOOTRD10- 


$- 


l' 






INI 






} 


LOAD A BYTE 


10A9+EDA2 


DB 


0EDH,0A2H 










JR 


BOOTRDIO 




r 


GO WAIT FOR NEXT BYTE 


10AB+18F6 


DB 


18H, BOOTRDIO- 




1 





RECURSIVE SUBROUTINES TO DELAY 7,14, OR 28 MICROSECONDS (APPROXIMATELY) 
BASED ON THE APPROXIMATION THAT A CALL AND A RETURN TAKE ABOUT 
7 MICROSECONDS. 



10 AD 


CDBOlO 


DLY28M: 


CALL 


DLY14M ; 28 MICROSECONDS 




lOBO 


CDB310 


DLY14M: 


CALL 


DLY7M ; 14 MICROSECONDS 




10B3 


C9 


DLY7M: 


RET 


; 7 MICROSECONDS 








; TEMPORARY 


STORAGE 




10B4 




BOOTSEC 


: DS 


1 ; CURRENT SECTOR NUMBER 




10B5 




ADTAB 


EQU 


$ ;ADDRESS TABLE 




10B5 


OODA 




DW 


QALLOAD 


• 1 


10B7 


OODC 




DW 


QALLOAD+QKSECSIZ 


? 2 


10B9 


OODE 




DW 


QALL0AD+QKSECSIZ*2 


? 3 


lOBB 


OOEO 




pw 


QALLOAD+QKSECSIZ* 3 


• 4 


lOBD 


00E2 




DW 


QALLOAD+QKSECSI Z* 4 


} 5 



LOADER START 
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lOBF 


00E4 


DW 


lOCl 


00E6 


DW 


10C3 


00E8 


DV 


IOCS 


OOEA 


DV^ 


10C7 


FFFF 


DW 


10C9 


OOEC 


DW 


lOCB 


OOEE 


DW 


lOCD 


OOFO 


DW 


lOCF 


00F2 


DW 


lODl 


00F4 


DW 


10D3 


00F6 


DW 


10D5 


0000 


DW 


10D7 


0002 


DW 


10D9 


0004 


DW 


lODB 


0006 


DW 


lODD 


FFFF 


DW 


lODF 


FFFF 


DW 


lOEl 


FFFF 


DW 


10E3 


FFFF 


DW 


10E5 


FFFF 


DW 


CP/M MACRO ASSEM 2.0 


#006 


10E7 


FFFF 


DW 


10E9 




END 



CP/M 


MACRO ASSEM 2.0 


#007 


10B5 


ADTAB 


0000 


BC 


102F 


BOOTH 


1041 


B00T12 


108C 


BOOTCMD 


1091 


BOOTCMDl 


10B4 


BOOTSEC 


0002 


DE 


8000 


FLIP 


00E9 


GOWAN 


0100 


PRIMST 


DAOO 


QALLOAD 


OODO 


QCTERM 


OFFA 


QDRNO 


0002 


QLDSEC 


OFFB 


QLDSOFF 


1100 


QLSTACK 


0001 


QMBUSY 


0002 


QM INDEX 


0004 


QMLDATA 


0098 


QMSEEK 


0010 


QMSKERR 


0060 


QPCOMD 


0063 


QPDATA 


0061 


QPTRKRG 


OFFF 


QSEMA4 



QALL0AD+QKSECSIZ*5 


• 6 


QALL0AD+QKSECSIZ*6 , 


• 7 


QALL0AD+QKSECSIZ*7 , 


' 8 


QALLOAD+QKSECS I Z * 8 , 


' 9 


OFFFFH 


• SECOND BOOT 


QALLOAD+QKS ECS I Z * 9 


• 10 


QALLOAD+QKS ECS I Z * 1 


) 11 


QALL0AD+QKSECSIZ*11 


? 12 


QALL0AD+QKSECSIZ*12 


? 13 


QALLOAD+QKSECS I Z * 1 3 


? 14 


QALL0AD+QKSECSIZ*14 


? 15 LOADER END 


QPRIMS 


? 16 PRIMITIVE 


QPRIMS+QKSECSIZ 


r 17 


QPRIMS+QKSECSIZ*2 


• 18 


QPRIMS+QKSECSIZ* 3 


• 19 PRIMITIVE 


OFFFFH 


r NULL CJIC) 


OFFFFH 


; NULL CJIC) 


f\ TTi Tn rn rri tt 

OFF r Fn 


"XT TT T T ATT \ 

• NULL C«J1C) 


OFFFFH 


• NULL CJIC) 


OFFFFH 


? NULL CJIC) 


PC-100 COLD BOOT (TRACK SECTOR 1) 




OFFFFH 


r NULL CJIC) 



BOOTOO 

PC-100 COLD BOOT (TRACK 0, SECTOR 1) 



lOOE 


BOOTOO 


OOFF 


BOOTIOO 


1011 


BOOTIO 


1061 


BOOT20 


1078 


B00T21 


1082 


BOOT90 


1000 


BOOTORG 


10A3 


BOOTRDIO 


1097 


BOOTREAD 


lOBO 


DLY14M 


10 AD 


DLY28M 


10B3 


DLY7M 


0004 


HL 


0004 


IX 


0004 


lY 


0080 


QCREADS 


0008 


QCREST 


005C 


QCSTEPIN 


0008 


QERCOD 


0200 


QKSECSIZ 


OOOA 


QKSECTRK 


OFFD 


QLDSSEG 


ODAO 


QLLDSEG 


0000 


QLLOAD 


0008 


QMCRC 


0002 


QMDRQ 


0020 


QMHLT 


0080 


QMNRDY 


009C 


QMREAD 


0010 


QMRNF 


0004 


QMTZERO 


0040 


QMWPROT 


0020 


QMWRFLT 


0000 


QPRIMS 


0062 


QPSECRG 


0040 


QPSTAT 


OOOA 


QSTCOD 


lOOD 


RSTSPOT 


0021 


ZFLIP 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



PAGE 1 



title 'CP/M-Se Loader' 

This module revised for DEC RAINBOW 100 

by CPL 
July 1982 

The CPMLDR consists of this module along with the 
LDRBDOS and LBIOS. 

CPMLDR is loaded by a load routine which resides 
on the first sector of the first track of a CP/M--86/80 
system diskette. CPMLDR itself resides on the 
remainder of the first track and on the next track. 

CPMLDR first opens the file 'CPM.SYS' using the 
LDRBDOS and LBIOS and then reads it into memory. 
Pointers and the memory region table 
are then initialized. Finally a jump to the BIOS 
initialization entry point starts CP/M-86/80. 

The first 128 byte record of the CPM.SYS file is a header 
with the following format: 
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ty rb 1 ;seg type (not used here) 

len rw 1 ;length (not used here) 

abs dw Idrstart /absolute segment address for LOADER 

min rw 1 /minimum mem (not used here) 

max rw 1 ;max mem needed (not used here) 



(This header record is constructed automatically by the 
GENCMD utility) . 

CPMLDR may be read into any segment that does not 
overlap the desired system load segment as it makes 
all memory references using copies of the CS: register 
it is entered with. 



false equ 

true equ not false 

cr equ Odh 

If equ Oah 



CPM SEG 



CPM LEN 



EQU 0040H 



EQU 3600H 



PTRSBUFS ADR EQU 



STARTING SEGMENT OF 

CP/M-86/80 (CPM. SYS) 
MAX LENGTH (IN BYTES) OF 
CP/M--86/80 
(CPM_SEG*16) +GPM_LEN 

; STARTING ADDRESS OF 
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POINTERS/BUFFERS DATA BLOCK 
0300 PTRSBUFS_LEN EQU 300H ; LENGTH (IN BYTES) OF 

CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



POINTERS/BUFFERS DATA BLOCK 
03D0 STARTTPA_SEG EQU (PTRSBUFS__ADR+PTRSBUFS_LEN) /1 6 

; STARTING SEGMENT OF TPA 



OFFA BOOTDRV_ADR EQU OFFAH ; ADDRESS OF BYTE CONTAINING 

BOOT DRIVE# (FROM CPL BOOT) 

CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



EJECT 



0406 
1200 
2500 



LBDOSOFF EQU 0406H 

LBIOS^OFFSET EQU 1200H 
BIOSOFF EQU 2500H 



OFFSET OF LOADER BDOS 
OFFSET OF LOADER BIOS 
OFFSET OF BIOS ~ 

THIS IS THE ENTRY POINT INTO CPM 



INCLUDE DEFBUF.LIB 
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK 
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FFAO XDPCX EQU -60H 

0000 XDEFBUF EQU OOOH 

0086 XPACKET EQU 086H 

0086 XSTPKT EQU 086H 

0094 XADCPKT EQU 094H 

0094 XMVPKT EQU 094H 

00A2 XSHRBUF EQU 0A2H 

02F8 XMEMSIZE EQU 2F8H 

02FA XPCPMADR EQU 2FAH 

02FC XZ80PKT EQU 2FCH 

02FE XI88PKT EQU 2FEH 

02F0 XTTRACK EQU 2F0H 

02F4 XTFORMAT EQU 2F4H 

02E7 XCSFLAG EQU 2E7H 

; OFFSETS FROM ZOT FOR CONVENIENCE 

0000 ZOTP EQU 
FFFE Z80FLAGPT EQU -2 
FFFB CICCK EQU -5 

; OTHER USEFUL EQUATES 

0002 BDCS EQU 2 

0001 BIOCS EQU 1 
0017 BIOS JMPS EQU 23 



• ************************************ 



DISK PARAMETER STORAGE (60H) 
MISC. BUFFER (LENGTH=80H) 
BIOS MESSAGE PACKET (LENGTH=0EH) 
START PACKET BUFFER (LENGTH=0EH) 
DATA PACKET (LENGTH=OEH) 
MOVE PACKET BUFFER (LENGTH=OEH) 
SEGMENT BUFFER ( LENGTH=200H) 
MEMORY SIZE (WORD) 
PSEUDO CP/M ADDRESS (WORD) 
PACKET POINTER FROM Z80 (WORD) 
PACKET POINTER FROM 8088 (WORD) 
TRACK TABLE 
FORMAT TABLE 
CONSOLE STATUS FLAG 



Z80 FLAG 

Z80-RUNNING FLAG 

CONSOLE STATUS FLAG CHECK 



BDOS CHARACTER READY BIT 

BIOS CONSOLE STATUS BIT 

NUMBER OF FUNCTIONS IN JUMP TABLE 
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0045 SEGTBL OFFSET EQU BIOS JMPS*3 



0047 PBADR_OFFSET EQU SEGTBL OFFSET+2 



02FA PCPMADR OFFSET EQU XPCPMADR 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



02F8 MEMSIZE OFFSET EQU XMEMSIZE 



TO DETERMINE MEMORY SIZE 



1000 
1000 



FSTMEM_SEG EQU lOOOH 

MEMINC EQU lOOOH 



OFFSET (FROM START OF BIOS) 
OF WORD WITH OFFSET 
(FROM START OF CPM) TO 
MEMORY SEGMENT TABLE 

OFFSET (FROM START OF BIOS) 
OF WORD THAT WILL CONTAIN 
ADDRESS OF POINTERS/BUFFERS 
DATA BLOCK 

OFFSET (FROM START OF PTRSBUFS) 
OF WORD CONTAINING ADDRESS 
OF PSEUDO CP/M 



0=PSEUDO CP/M NOT LOADED 
OFFSET (FROM START OF PTRSBUFS) 
OF WORD INDICATING 
#PARAGRAPHS ADDITIONAL MEMORY 



START OF OPT ADDITIONAL MEMORY 
SIZE OF MEMORY INCREMENTS 
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OOOE MEMCNT EQU 14 

00A5 PATTERNl EQU 0A5H 

0096 PATTERN2 EQU 096H 



INTERRUPTS 



OOEO BDOS_INT EQU 224 

; bdos function numbers 

0002 coutf equ 2 

0009 pstrf equ 9 

OOOE seldsk equ 14 

OOOF openf equ 15 

0014 readsf equ 20 

OOIA dmaf equ 26 

0033 dmabf equ 51 



* 

* CPMLDR starts here 

* 



(IN PARAGRAPHS) 
MAX# MEMORY INCREMENTS 



LBDOS INTERRUPT NUMBER 



Page 7 



cseg 
org 



0000 E9FD11 



1200 



jmp LBIOS 



start: 



0003 33C0 
0005 8EC0 
0007 BBFAOF 
OOOA 268A07 
OOOD 2EA2B601 



XOR AX, AX 

MOV ES,AX 

MOV BX,BOOTDRV_ADR 

MOV AE,ES:[BX] 

MOV BOOTDRV,AL 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



0011 E8F100 



0105 



call initlbdos 



; READ CPM.SYS 



0014 E8FA00 0111 

0017 3CFF7509 0024 

OOIB BA3601E80501 0126 

0021 E90F01 0133 



call openfnc 

cmp ar,255 1 jne perr 

mov dx, offset nofile 1 call msg 

jmp stop 



perr; 



7 JMPF to here from boot ROM 



; allow loader BIOS to 
; initialize 



; loader BIOS jumps here 



GET BOOT DRIVE # . . . 



. . . AND SAVE IT 



;warm up Ibdos and Ibios 



open CPM.SYS 
insure good file 
no CPM.SYS file 
then halt the machine 
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0024 8CCAE8F500 OllE 
0029 BAD801E8EA00 0119 
002F E8F900 012B 
0032 BA4000E8E600 OllE 



mov dj^rCS ! call setdmab 

mov dX/Offset pagel ! call setdma 

call read 

mov dx',cpm_seg I call setdmab 



;read first page of CPM.SYS 

; AND IGNORE IT 

; set DMA segment for disk 10 



0038 BAOOOO 



mov d3f,0 



;offset of CPM in segment 



readit: 



003B E8DB00 
003E 52E8E900 

0042 5A 

0043 3C017407 
0047 81C28000 
004B E9EDFF 



0119 
012B 

004E 

003B 



call setdma 

push dx I call read 

pop dx 

cmp ar,01H ! je done 
add 6^,B0h 
jmp readit 



; set DMA offset for 
; next sector read 

7 check for EOF 

; address for next record 



done : 



004E 2E8916B401 



MOV LDLEN^DX 



; SAVE LENGTH 



0053 BBOOOO 
0056 B80010 
0059 8EC0 
005B BlOE 

005D 26C607A5 
0061 26803FA5 
0065 7515 



007C 



DETERMINE MEMORY SIZE 



MOV BX,0 

MOV AX,FSTMEM_SEG 

MOV ES,AX 

MOV CL.MEMCNT 

MOV ESrBYTE PTR [BX], PATTERNl 

CMP ES:BYTE PTR [BX]^ PATTERNl 

JNE DONEMEM 



TESTMEM: 
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0067 26C60796 
006B 26803F96 
006F 750B 
0071 8CC0 
0073 050010 
0076 SBCO 
0078 FEC9 
007A 75E1 

007C 8CC0 
007E 2D0010 
0081 50 



MOV 
CMP 

007C JNE 
MOV 
ADD 
MOV 
DEC 

005D JNZ 
DONEMEM: 

MOV 
SUB 
PUSH 



ES:BYTE PTR [BX]\ PATTERN2 
ES:BYTE PTR [BX]^ PATTERN2 
DONEMEM 

AX,ES ; TRY NEXT MEMORY AREA 

AX,MEMINC 

ES^AX 

CL 

TESTMEM 



AX,ES 

AX,MEMINC 

AX 



; SAVE #PARAGRAPHS ADDITIONAL MEMORY 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



UPDATE POINTERS 



; UPDATE BIOS* SEGMENT TABLE FIRST 



0082 


2E8E06B201 


MOV 


ES^LDSEG 




0087 


BB4525 


MOV 


BX,BIOSOFF+SEGTBL_OFFSET 




008A 


268B1F 


MOV 


BX,ES:[BX] 


; GET PTR TO SEGMENT TABLE 


008D 


26C60701 


MOV 


ESiBYTE PTR [BX]',1 


; SET FOR 1 SEGMENT 


0091 


26C74701D003 


MOV 


ESrWORD PTR 1 [ BX]% STARTTPA__SEG 


; SET START OF 1ST SEG 


0097 


05300C 


ADD 


AX , FSTMEM_SEG-STARTTPA_SEG 


; COMPUTE LEN OF 1ST SEG . . 


009A 


26894703 


MOV 


ES:3 [BX]',AX 


; ... AND SET IT 
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009E BB4725 
OOAl 26C707003A 



; PLACE ADDRESS OF POINTERS/BUFFERS DATA BLOCK FOR BIOS * USE 

MOV BX,BIOSOFF+PBADR__OFFSET 

MOV ESiWORD PTR [BX], PTRSBUFS ADR 



00A6 33C0 
00A8 8EC0 
OOAA BBFA3C 
OOAD 26C7070000 



; INITIALIZE PSEUDO CP/M ADDRESS 
XOR AX, AX 

MOV ES,AX 

MOV BX , PTRSBUFS_ADR+PCPMADR_OFFSET 

MOV ESrWORD PTR [BXp^O 



00B2 BBF83C 
00B5 58 
00B6 268907 



; SET SYSTEM SIZE 

MOV BX,PTRSBUFS_ADR+MEMSIZE_OFFSET 

POP AX 

MOV ES:[BX],AX 



00B9 BA8301 

OOBC E86700 0126 

OOBF 2EA1B201 

00C3 E81A00 OOEO 



MOV DX, OFFSET SEGMENT 

CALL MSG 

MOV AX,LDSEG 

CALL PHEX 



; PRINT BASE SYSTEM SEGMENT 



00C6 BA9801E85A00 0126 

OOCC 2EA1B401 

OODO E80D00 OOEO 

00D3 E84D00 0123 

00D6 2E8A0EB601 

OODB 2EFF2EB001 



mov dx, offset lenmsg ! call msg 

mov aj^^ldlen 

call phex 

call pcrlf 

mov clrbootdrv 

jmpf dword ptr bios 



; print length message 

; print last address 

; and a crlf 

; pass boot drivef 

; leap to BIOS initialization 
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B-klclciciciclsicieicic-kicisiclciclcisis'kitis'k-kick'k'k 



subroutines 



OOEO B90404 

00E3 D3C0 

00E5 5150 

00E7 E80700 



phex : 



Ihex : 



OOFl 



mov cx, 0404h 

rol ax,cl 

push cx ! push ax 

call pnib 



;print 4 hex characters from ax 
; 4 in both CH and CL 

; rotate left 4 

; save crucial registers 

; print hex nibble 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



OOEA 5859 
OOEC FECD75F3 
OOFO C3 

OOFl 240F3C09 
00F5 7705 
00F7 0430 
00F9 E90200 
OOFC 0437 
OOFE 8AD0 



00E3 



pnib : 



OOFC 



OOFE 



plO: 
prn : 



pop ax i pop cx 
dec ch ! jnz Ihex 
ret 

and ar,Ofh i cmp al,9 

ja plO 

add al, '0 ' 

jmp prn 

add al, 'A'-IO 

mov dr,al 



; restore registers 
; and loop four times 

;print low nibble in AL as hex 

;above 9 ? 
;digit 

;char a-e 
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.****** 



0100 B102 
0102 E92B00 



putchar : 



0130 



mov cTfCOutf 
jmp sys_vec 



0105 2E8A16B601 
OlOA 2AF6 
OlOC BlOE 
OlOE E91F00 



******* 

r 

initlbdos : 

mov dl/bootdrv 

sub dh',dh 

mov clfSeldsk 
0130 jmp sys_vec 



; select boot disk 
; clear top half 



0111 BIOF 
0113 BAB701 
0116 E91700 



.****** 

openf nc : 



0130 



mov cI, openf 

mov dx, offset fcb 

jmp sys_vec 



; fcb already initialized 



,******** 



setdma : 

0119 BllA mov cl^dmaf 

OllB E91200 0130 jmp sys_vec 



;set new dma addr in dx 



OllE B133 



setdmab: 



mov clfdmabf 



; set new dma segment base from DX 
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0120 E90D00 



0130 



jmp sys__vec 



******* 



0123 BAADOl 



pcrlf : mov dx^offset crlf ;print carriage returrf^ line feed 



, -k it ie * * * 



0126 B109 
0128 E90500 



msg : 



0130 



mov cl,pstrf 
jmp sys__vec 



;print msg starting at dx until $ 
;print string function 



CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



read : 

012B BAB701B114 mov dx^offset fcb ! mov cl^readsf 

; jmp sys_vec 

I 
t 

sys^vec: 

0130 CDEO int bdos_int 

0132 C3 ret 
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0133 F4 

0134 EBFD 



0136 0D0A54686520 
46696C652043 
504D2E535953 
204E6F742046 
6F756E64204F 
6E2054686973 
204469736B 

015F 0D0A446F2061 
207379737465 
6D2072657365 
742077697468 
2061206E6577 
206469736B24 

0183 0D0A5365676D 
656E74204164 
647265737320 



I 
t 

stop: 

HLT 

0133 JMPS STOP 

********************************* 

;* DATA AREA 

• * 

• ic-k-k-k-kicicic'kicicicicicicitic-kicisic'k-kickicicicifkit* 

nofile db crMf , 'The File CPM.SYS Not Found On This Disk* 



db cr^lf , 'Do a system reset with a new disk$' 



segment db cr\lf, 'Segment Address = $' 
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3D2024 

0198 0D0A20202020 lenmsg db cif,lf,« Last Offset = $• 

4C617374204F 
666673657420 
3D2024 

OlAD 0D0A24 crlf db cifrlf/'$' 



; vector for jmpf indirect to start CP/M 

OIBO bios rb 4 

org offset bios ; overlay preceding with DW's 

OIBO 0025 biosstart dw biosoff ; first word is BIOS offset 

CP/M ASM86 1.1 SOURCE: CPLLDCPM.A86 CP/M-86 Loader 



01B2 4000 Idseg dw cpm__seg ; second is segment to put CPM.SYS 

01B4 Idlen rw 1 

01B6 bootdrv rb 1 

01B7 0043504D2020 fcb db 'CPM ^ 'SYS •^,a,a,a,a,a,a,a,a,(T,a,a,ara,ar a,a,a,a,a,a,o 

202020535953 
0^0000000000 
000000000000 
000000000000 
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000000 



01D8 pagel rb 128 



; dummy section for BIOS init label 

org lbios_offset 

Ibios: 



end 



END OF ASSEMBLY. NUMBER OF ERRORS: 0. USE FACTOR: 8% 



CP/M ASM86 1-1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 
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title 'Customized Loader Basic I/O System* 

******************************************** 

* * 

* This Customized BIOS adapts CP/M-86 to * 

* the following hardware configuration * 

* Processor: PC-100 Rainbow * 

* Brand: DEC * 

* Controller: * 

* System: CP/M 86/80 * 

* * 

* * 

* Programmer :rdk/CPL * 

* Revisions : * 

* * 

* * 

* Release 1.0 * 

* * 

* 8/25/82 BIOS modified to operate with * 

* PC-100 Rainbow hardware, and to * 

* operate with Z80 second CPU. * 
■* ROM date: 8/17/82 * 
. * * 
.************************************************ 
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FFFF true equ -1 

0000 false equ not true 

OOOD cr e'^u Odh ;carriage return 

OOOA If equ Oah ;line feed 

0043 I'ts pqu 43h 

0041 Idata equ 41h 

0042 csts equ 42h 
0040 cdata eau 40h 
0013 ctrl_s equ 13h 
0011 Gtrl_q equ llh 



********************************************* 

* * 

* Loader_bios is true if assembling the * 

* LOADER BIOS, otherwise BIOS is for the * 

* CPM.SYS file. * 

* * 
********************************************* 



FFFF loader_bios equ true 

OOEO bdos_int equ 224 ;reserved BDOS interrupt 

;DEBLOCK EQU TRUE ;do deblocking 



IF not loader bios 



I 
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bios_code equ 2500h 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



FDOO 



ccp offset 
bdos_of St 
;l 



equ OOOOh 

equ 0B06h ;BDOS entry point 



ENDIF ;not loader_bios 
pb2 adr equ OfdOOh ; 



IF 



loader bios 



1200 
0003 
0406 



;l 

bio*=;_code 
ccp_of f set 
bdos_of St 
:l 



equ 1200h ;start of LDBIOS 
equ 0003h ;base of CPMLOADER 
equ 0406h ;stripped BDOS entry 

I 



ENDIF ;loader_bios 

7 

INCLUDE DEFBUF.LIB 

r 

; OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK 



FFAO 
0000 
0086 



XDPCX 

XDEFBUF 

XPACKET 



EQU 
EQU 
EQU 



-60H 
OOOH 
086H 



; DISK PARAMETER STORAGE (60H) 

; MISC. BUFFER (LENGTH=80H) 

; BIOS MESSAGE PACKET (LENGTH=OEH) 
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0086 


XSTPKT 


EQU 


086H 


0094 


XADCPKT 


EQU 


094H 


0094 


XMVPKT 


EQU 


094H 


00A2 


XSHRBUF 


EQU 


0A2H 


02F8 


XMEMSIZE 


EQU 


2F8H 


02FA 


XPCPMADR 


EQU 


2FAH 


02FC 


XZ80PKT 


EQU 


2FCH 


02FE 


XI88PKT 


EQU 


2FEH 


02F0 


xrm rm~> 7V r^t7 

XTTRACK 


EQU 


2F0H 


02F4 


XTFORMAT 


EQU 


2F4H 


02E7 


XCSFLAG 


EQU 


2E7H 




: OFFSETS FROM 


ZOT FOR 


CONVEl 


0000 


ZOTP 


EQU 





FFFE 


Z80FLAGPT 


EQU 


-2 


FFFB 


CICCK 


EQU 


-5 




; OTHER USEFUL 


EQUATES 




0002 


BDCS 


EQU 


2 


0001 


R-^OCS 


EQU 


1 


0017 


BIOS_JMPS 


EQU 


23 



. ********************************** 
I 



INCLUDE CPLBIOS1.A86 



cseg 



; START PACKET BUFFER (LENGTH=OEH) 
; DATA PACKET (LENGTH=0EH) 
; MOVE PACKET BUFFER (LENGTH=0EH) 
; SEGMENT BUFFER ( LENGTH=200H) 
; MEMORY SIZE (WORD) 
? PSEUDO CP/M ADDRESS (WORD) 
; PACKET POINTER FROM Z80 (WORD) 
; PACKET POINTER FROM 8088 (WORD) 
TRACK TABLE 
; FORMAT TABLE 
; CONSOLE STATUS FLAG 



Z80 FLAG 

Z80-RUNNING FLAG 

CONSOLE STATUS FLAG CHECK 



; BDOS CHARACTER READY BIT 

; BIOS CONSOLE STATUS BIT 

; NUMBER OF FUNCTIONS IN JUMP TABLE 
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= org ccpoffset 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



cc : 

org bios_code 
********************************************* 



* BIOS Jump Vector for Individual Routines * 

* * 
********************************************* 



=1200 


E90D01 


1310 


jmp 


INIT 


; Enter from BOOT ROM or LOADER 


= 1203 


E97101 


1377 


jmp 


WBOOT 


;Arrive here from BDOS call 


= 1206 


E9A304 


16 AC 


jmp 


CONST 


;return console keyboard status 


= 1209 


E9A504 


16B1 


jmp 


CONIN 


;return console keyboard char 


= 120C 


E9A704 


16B6 


jmp 


CONOUT 


;write char to console device 


= 120F 


E9AE04 


16C0 


jmp 


LISTOUT 


;write character to list device 


= 1212 


E9B004 


16C5 


jmp 


PUNCH 


;write character to punch device 


= 1215 


E9B204 


16CA 


jmp 


READER 


;return char from reader device 


= 1218 


E93005 


174B 


jmp 


HOME 


;move to trk 00 on cur sel drive 


= 121B 


E9F604 


1714 


jmp 


SELDSK 


;select disk for next rd/write 


= 121E 


E93B05 


175C 


jmp 


SETTRK 


;set track for next rd/write 


= 1221 


E93E05 


1762 


jmp 


SETSEC 


;set sector for next rd/write 


= 1224 


E94105 


1768 


jmp 


SETDMA 


;set offset for user buff (DMA) 


= 1227 


E95A05 


1784 


jmp 


READ 


;read a 128 byte sector 


= 122A 


E97205 


179F 


jmp 


WRITE 


;write a 128 byte sector 
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= 122D 


E98B04 


16BB 


J my 


LISTST 




= 1230 


E94105 


1774 




SECTRAN 


;xlate logical— >physical sector 


= 1233 


E93805 


176E 


jmp 


SETDMAB 


;set seg b^se for buff (DMA) 


=1236 


E9AF04 


16E8 


jmp 


GETSEGT 


;return offset of Mem Desc Table 


= 1239 


E9A104 


16DD 


jmp 


GETIOBF 


; return I/O map byte (lOBYTE) 


= 125C 


E9A304 


16E2 


jmp 


SETIOBF 


;set I/O map byte (lOBYTE) 


= 123F 


E9D606 


1918 


jmp 


RWMOVE 


;move block of data (* added for 86/80 *) 


= 1242 


E9A704 


16EC 


jmp 


VIDEO 


;direct video output (* added for 86/80 *) 










TF 


not loader bios 



; Segment Table address is placed here immediately after 
; the BIOS jumps to help the loader find the segment table 
; and set it up. 

DW OFFSET SEGTABLE 

DBPTR DW ; POINTER TO DATA BLOCK 

(FILLED BY LOADER OR MOVE ROUTINE) 

TF 

= IF loader bios 

= 3A00 DBPTR EQU 3A00H ;( illed by loader) 

ENDIF 

r 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



0000 
0002 
0080 



INTERPROCESSOR COMMUNICATION ROUTINES 



EQUATES 



INTZ80 EQU 
GSCR EQU 
BIT7 EQU 




2 

80H 



; PORT TO INTERRUPT Z80 
; INTERRUPT STATUS PORT 

; Z80 INTERRUPT STATUS BIT (0 = PENDING) 



=1245 4A14 
=1247 00 
=1248 0000 



SIOINIT 

CONINCHECK 

Z80PKT 



DW 
DB 
DW 



TPRTISQ 







; LOCATION TO FURNISH INIT TABLE START 

; CONSOLE STATUS CHECK 

; TEMP STORAGE FOR PACKET ADDRESS 
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SERV: 








124E 


50 


PUSH 


AX 


7 


SAVE REGISTERS 


124F 


53 


PUSH 


BX 






1250 


BB003A 


MOV 


BX,DBPTR 




GET POINTER TO DATA BLOCK 


1253 


IE 


PUSH 


DS 






1254 


33C0 


XOR 


AX, AX 






1256 


8ED8 


MOV 


DS,AX 




SET ZERO DS 


1258 


8B9FFC02 


MOV 


BX,XZ80PKT [BX] 




GET PACKET POINTER 


125C 


85DB 


TEST 


BX,BX 






125E 


740C 


126C JZ 


TYPE_39_EXIT 




IGNORE ZERO FOR PACKET ADDRESS 


1260 


2E891E4812 


MOV 


Z80PKT,BX 




STORE PACKET ADDRESS 


1265 


2EC7064C12FF 


MOV 


ZOT^TRUE 




SET THE FLAG 




FF 














TYPE_39__EXIT: 








126C 


E400 


IN 


AL,INTZ80 




CLEAR THE INTERRUPT 


126E 


IF 


POP 


DS 




RESTORE DS 


a26F 


5B 


POP 


BX 


7 


RESTORE REGISTERS 


-1270 


58 


POP 


AX 






= 1271 


CF 


RET 









if not loader bios 



; interrupt handler for type 44 (line frequency clock) 

tvpe_44_serv : 

mov CONINCHECK^Of fh ;set flag 

int 100 ;see below 
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= iret 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1272 IE 
=1273 53 
=1274 BB003A 
=1277 33C0 
=1279 8ED8 
=127B 8F87FE02 



software interrupt for line frequency clock (type 100) 



tvpe_100_serv : 
iret 



ruser mav intercept for use 



endif ;not loader bios 



SENDPKT - SEMD A PACKET TO THE Z80 



ENTRY: BX = POINTER TO PACKET (ABSOLUTE) 



EXIT: N/A 



SENDPKT: 



PUSH DS 
PUSH BX 



; SAVE POINTER 
; POINT TO DATA BLOCK 



MOV BX,DBPTR 
XOR AX, AX 

MOV DS,AX 

POP WORD PTR XI88PKT[BX] ; STORE PACKET POINTER 

; SIGNAL Z80 AND WAIT FOR ACKNOWLEDGEMENT 



; SET ZERO DS 
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127F E600 

1281 E402 
1283 A880 

1285 74FA 1281 
1287 C787FE020000 
128D IF 
128E C3 



OUT 
'^NDPKIO: 
IN 

TEST 

JZ 

MOV 

POP 

RET 



INTZ8a,AL 



; INTERRUPT THE Z80 



AL,GSCR ; GET Z80 STATUS 

AL,BIT7 ; INTERRUPT STILL PENDING? 

SENDPKIO ; YES - CHECK AGAIN 

WORD PTR XI88PKT{BX] ,0 ; ZERO THE PACKET 
DS ; RESTORE DS 



************************************^** ********* 

* * 

* Routine to wait for an interrupt * 

* (type 39) from Z80 * 

* * 
************************************************ 



= 128F FA 

=1290 2E833E4C12FF 
= 1296 7404 
= 1298 FB 
= 1299 F4 
= 129A EBF3 
= 129C FB 

a29D 2E8B1E4812 
= 12A2 C3 



WAITZ80: 

cli 

cmp ZOT,TRUE 
129C je WAITRET 

sti 
hit 

128F jmps WAITZ80 

WAITRET: sti 

mov bx, zSOpkt 
ret 



;no interrupts please 



;must allow interrupts now 
;wait quietly until interrupt 
;loop back until non-zero 
;allow interrupts 
; get packet address 
;bye 
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CP/M ASMft6 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



PACKER: ?take items off the stack and put them 



= 12A3 


IE 


push 


ds 


;into the message packet 


— 1 O A /I 


zEA34Clz 


mov 


7.0T , ax 


;Z80 flag set 


— 1 9 A ft 


9FftQl C 


mov 


ID An J-iJJ f uX. 






"inn 
J jut) 


xo r 


bx f bx 


;set zero data segment 


— 1 A P 

— X Zrir 


O PHR 


mov 


d s / b X 




— X Z DX 


9F•ftF'^^^9m p 


pop 




JoclVc UciL.a ocyillcilu 




Ztior U bZZlEi 


pop 


Ki JNnijU 


;return address 


~~ X ^ DO 


RRH n "^A 


mov 








OlL-OO DUU 


aaa 


bx f xpacke t 


; point to 88 packet 


— X Zv^Z 


u ouy 


aaa 


bx f cx 


;end of packet 


= 12C4 


03D9 


add 


bx f c X 


• =bx4-2*cx 


= 12C6 


2E890E241E 


mov 


COUNT, cx 


;save count for later 




pklp: 






;loop to do packing 


= 12CB 


4B 


dec 


bx 


;back up bx 


= 12CC 


4B 


dec 


bx 


;twice 


= 12CD 


58 


pop 


ax 


;get t.o.s. 


= 12CE 


8907 


mov 


[bx]',ax 


;pack it 


= 12D0 


E2F9 12CB 


loop 


pklp 


;loop until done 


= 12D2 


2EC7064C1200 


mov 


■J^OT, false 


; clear "done" flag 




00 








= 12D9 


E896FF 1272 


call 


sendpkt 


; send packet to z80 


= 12DC 


E8B0FF 128F 


call 


••'aitz80 


;wait if z80 is working 



12DF 2E8B0E241E 



mov cx, COUNT 



repak : 



12E4 8B07 

12E6 50 

12E7 43 

12E8 43 

12E9 E2F9 



12E4 



mov ax . [bx] 
push ax 
inc bx 
inc bx 
looD repak 



12EB 2EFF36221E 
12F0 2E8E1E201E 
12F5 2E8B1EA51C 
a2FA C3 



push RTNHLD 
mov ds,SEGHLD 
mov bx,BXHLD 
ret 



12FB 8A07 
12FD 84C0 
12FF 740A 
1301 8AC8 

1303 53 

1304 E8AF03 

1307 5B 

1308 43 

1309 EBFO 
130B B083 
130D E60A 
130F C3 



omsg : 

130B 

16B6 

12FB 

pmretn: 



mov al , [BX] 
test al,al 
jz pmretn 
mov CL,AL 
push bx 
call CONOUT 
pop bx 
mc BX 
jmps pmsg 
mov al,83h 
out Oah,al 
ret 
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;get the count again 
;take stuff out of packet 
;and 

;push it on the stack 
;bump the pointer 
; twice 

;loop until done 



;restore return and segment 
;restore bx 



;get next char from message 

;if zero return 

; preserve pointer 
;print it 



;next character and loop 

;make sure that crt is initiallized 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



********************************************* 

* * 

* INIT Entry Point, Differs for LDBIOS and * 

* BIOS, according to " Loader_Bios" value * 

* * 
********************************************* 



=1310 FA 
=1311 8CC8 
=1313 8ED0 
=1315 BC5F1E 
=1318 FB 
=1319 51 



INIT: ;print signon message and initialize hardware 

if loader_bios ; set up a stack 



cli 

mov ax cs 
mov ss, ax 

mov SD, offset stkbase 
sti 

push cx 



interrupts, please 
use cs for stack too 

set up a local stack 
interrupts ok now 



endif 



=131A 8CC8 
=131C 8ED8 
=131E 8EC0 



mov ax,cs 
mov ds,ax 
mov es,ax 



;we entered with a JMPF so use 
;CS: as the initial value for DS:', 
;and ES: 
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IF not loader bios 



; This is a BIOS for the CPM.SYS file. 

; Setup all interrupt vectors in low 

; memory to address trap 

:use local stack during initialization 

cli ;no interrupts while doing the stack 

mov ss,ax ;CS: as the initial value of SS:', 

mov sproffset stkbase 

sti ;interrupts ok now 

eld ;set forward direction 

push cx 

mov cl,95H ;set lOBYTE to lst=lpt ,con=crt 

call SETIOBF 
mov "^SO 



ENDIF ;not loader__bios 
IF loader bios 



I 

;This is a BIOS for the LOADER 
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=1320 FC eld ;set forward direction 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1321 E82300 



1347 



call REVECTOR ;set up interrupts 



=1324 BBA81C 
=1327 E8D1FF 



12FB 



ENDIF ;loader_bios 
if not loader_bios 

STI 
endif 

mov bx,offset signon 

call pmsg ;print signon message 



;set up track and format tables 



=132A BB003A 
=132D IE 
=132E 33C0 
=1330 8ED8 
=1332 B90400 
=1335 F6D4 
=1337 88A7F002 
=133B 8887F402 
=133F 43 
=1340 E2F5 
=1342 IF 



get address of table area 



mov bx^dbptr 
push ds 
xor ax, ax 
mov ds,ax 
mov cx,nrdisks 
not ah 

initio : mov xttrack [bx] ,ah 
mov xtf ormat [bx] ,al 
inc bx 

1337 loop initio ;loop back until done 

pop ds ;restore data seg 



zero for data seg 

how many disks? 
need ff in ah 

;tracks to ff 
;formats to 00 



=1343 59 



pop cx 



;restore drive etc 
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if not loader bios 



1344 E9BCEC 



0003 



1347 IE 

1348 B80000 
134B BEDS 

134D C70680030604 
1353 8C0E8203 

1357 C7069C004E12 

135D 8C0E9E00 

1361 C70690004F15 

1367 8C0E9200 

=136B C70694006B15 

1371 8C0E9600 

=1375 IF 

= 1376 C3 



mov al,cl ;let*s take a look at that drive 

and al,Ofh ;make sure it's valid, then ... 

mov b te ptr .curdrvs,al ;store drive for submit files 

7 ~ ~ 

endif ;not loader_bios 

jmp ccp ;jump to cold start entry of CCP 

IF loader bios 



REVECTOR: 



push ds ;save data segment 

mov ax,0 

mov ds,ax ;point to segment zero 

;BDOS interrupt offset 
mov bdos_of f set,bdos_of St 

mov bdos_segment,CS ;bdos interrupt segment 
(additional LOADER initialization) 
MOV Z80_OFFSET, OFFSET TYPE_39_SERV 

MOV Z80_SEG,cs ;use current code segment (why not? 

mov sio_of f set ,of f set I232RX 
mov sio_seg,cs 

mov sio2_of fset,of fset I232RX2 
mov sio2_seg,cs 

pop ds ; restore data segment 

ret 
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ENDIF ;loader_bios 
CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



F not loader_bios 
; SET UP INTERRUPT VECTORS 
REVECTOR: 

push ds ;save the DS register 

CLI ; DISABLE WHILE CHANGING VECTORS 

} 

.**************************** 

;** Firm-are initializing 

xor dl,dl 
mov di,16h 
mt 40 
mov di,Och 
mt 40 
cli 

.**************************** 

mov ax,0 
mov ds,ax 

mov es,ax ;set ES and DS to zero 

;BDOS offset to proper interrupt 
mov bdos_of f set ,bdos_of St 
MOV BDOS_SEGMENT , CS 

MOV Z80 OFFSET, OFFSET TYPE 39 SERV 



*** 
. ** 
. 

. ** 
. ** 
. ** 
. ** 
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MOV Z80_SEG/CS ;use current code segment (why not?) 

mov tp_44_of f set ,of f set type__44_serv 
mov tp_44_seg,cs 

mov tp_100_of f set ,of f set type_100_serv 

mov tp_100_seg ,cs 

mov sio_of f set ,of f set I232RX 

mov sio__seg,cs 

mov «io2__of f set,of fset I232RX2 
mov sio2_seg,cs 



STI ; RE-ENABLE INTERRUPTS 

7 

pop ds ;restore the DS register 

jmp P232INIT ;initialize sio 
ENniF ;not loader bios 



1377 2EC7064A1200 WBOOT: mov Z80FLAG, false ;set z80 not running 

00 

137E E8C6FF 1347 call revector 

1381 E985EC 0009 jmp ccp+6 ;direct entry to CCP at command level 



CP/^ Character I/O Interface Routines 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



; TERMINAL DEVICE DRIVERS 



CRTOUT: 



=1384 8AC1 
=1386 BFOOOO 
=1389 06 
=138A CD28 
=138C 07 
=138D C3 



MOV 

MOV 

PUSH 

INT 

POP 

RET 



AL.CL 

DI,0 

ES 

40 

ES 



: Move character for output 
; Function code 



=138E 06 
=138F BF0200 
=1392 CD28 
=1394 84C9 
=1396 74F7 
=1398 2EF7064A12FF 
FF 

=139F 741C 
=13A1 50 
=13A2 BF0400 
=13A5 CD28 
=13A7 33DB 



138F 



13BD 



CRT-^N: 

PUSH 
CRTINl: MOV 
INT 
TEST 
JZ 



ES 

DI,2 
40 

CL,CL 
CRTINl 



test z80flag,true 

jz CRTIN2 
push ax 
mov di,4 
int 40 
xor bx, bx 



; Function code 

Character available? 

No - retry 
Is Z80 running? 

; go away if not 
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= 13A9 


8EC3 




mov es 


,bx 


= 13AB 


BB003A 




mov bx 


,DBPTR 


= 13AE 


80E101 




and cl 


,BIOCS 


= 13B1 


2680A7E702FE 




and es 


:byte ptr xcsf lag [bx] ,not BIOCS ;clear status 


= 13B7 


26088FE702 




or esrbyte ptr xcsf lag [bx] ,cl 


= 13BC 


58 




pop ax 




= 13BD 


07 


CRTIN2: 


pop es 




=13BE 


C3 




RET 


; Return character in AL 






CRTSTI : 






= 13BF 


BF0400 




MOV 


DI,4 ; Function code 


=13C2 


06 




PUSH 


ES 


= 13C3 


CD28 




INT 


40 


=13C5 


07 




POP 


ES 


= 13C6 


8AC1 




MOV 


AL,CL ; Move status for return 


= 13C8 


C3 




RET 








CRTSTO: 






= 13C9 


BOFF 




MOV 


AL,OFFH ; Always ready 


=13CB 


C3 




RET 





SERIAL I/O ROUTINES FOR DEC RAINBOW 100 



= 0080 HIPAR EQU 80H ; HIGH PARITY BIT 
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; CONTROL BLOCK OFFSETS 
CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 





0000 


QTPORT 


EQU 


BYTE 


PTR 





; CONTROL PORT ADDRESS 




0001 


QTFLAGS 


EQU 


BYTE 


PTR 


1 


; DEVICE 


FLAGS (SEE MEANINGS BELOW) 




0002 


QTNRCHR 


EQU 


BYTE 


PTR 


2 


; NR. OF 


CHARACTERS CURRENTLY IN BUFFER 




0003 


QTCAP 


EQU 


BYTE 


PTR 


3 


; BUFFER 


CAPACITY IN BYTES (CONSTANT) 




0004 


QTINPTR 


EQU 


BYTE 


PTR 


4 


; BUFFER 


INPUT POINTER 




0005 


QTOTPTR 


EQU 


BYTE 


PTR 


5 


; BUFFER 


OUTPUT POINTER 




0006 


QTDEND 


EQU 


BYTE 


PTR 


6 


; OFFSET 


OF LAST DATA BYTE (CONSTANT) 




0007 


QTDEVID 


EQU 


7 






; OFFSET 


OF PHYS DEVICE ID FOR ERROR MESSAGE 




OOOA 


Q^DATA 


EQU 


10 






; BUFFER 


DATA AREA 



0001 
0002 
0004 
0008 
0010 



0020 
0020 
0020 



BIT ASSIGNMENTS FOR "QTFLAGS" 



QMSUSP EQU 
QMTYPE EQU 
QMINIT EQU 
QMISUSP EQU 
QMBREAK EQU 



1 
2 
4 
8 

lOH 



1 = OUTPUT SUSPENDED 

XON/XOFF, PARITY ERROR CHECKING 

1 = DEVICE REQUIRES INITIALIZATION 
1 = INPUT SUSPENDED 

1 = BREAK DETECTED 



BUFFER LENGTHS IN CONTROL BLOCKS 



QKPRTBL EQU 32 
QKCOMBL EQU 32 
QKC0M2BL EQU 32 



; PRINTER CONTROL BLOCK 

; COMM PORT CONTROL BLOCK 

; OPTIONAL COMM PORT CTL BLOCK 
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CONTROL PORT ADDRESSES 



0043 QPPRT EQU 43H ; PRINTER PORT 

0042 QPCOM EQU 42H ; COMM PORT 

0022 QPC0M2 EQU 22H ; OPTIONAL COMM PORT 

; ASCII CONTROL CHARACTERS 

0007 QKBEL EQU 7 ; BEL 

0011 QKXON EQU 17 ; XON (CTL-Q) 

0013 QKXOFF EQU 19 ; XOFF (CTL-S) 

0091 QKXONP EQU 17+HIPAR ; XON+ (CTL-Q) 

0093 QKXOFFP EQU 19+HIPAR ; XOFF+ (CTL-S) 

OOIA QKSUB EQU 26 ; IB 

; SIO STATUS BITS - RRO 

0001 QMRXR EQU 1 ; RECEIVED CHAR. READY 

0004 QMTXR EQU 4 ; TRANSMIT READY 

0080 QMBRK EQU 80H ; BREAK 

; SIO STATUS BITS - RRl 

0010 QMPARE EQU lOH ; PARITY ERROR 

0020 QMOVRE EQU 20H ; OVERRUN ERROR 
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; SIO COMMANDS - WRO 
CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



0038 
0018 
0030 
0010 



0018 



0040 
OOCO 
0001 



0040 
OOOC 
0004 



QKEOI EQU 38H 

QKCHRST EQU 18H 

QKRESERR EQU 30H 

QKRESI EQU lOH 



SIO COMMANDS - WRl 



QMMRXI EQU 18H 



SIO COMMANDS - WR3 

QMR7BIT EQU 40H 

QMR8BIT EQU OCOH 

QMMRXE EQU 1 



SIO COMMANDS 



WR4 



QMMX16 EQU 4 OH 

QMMST2 EQU OCH 
QMMSTl EQU 4 

SIO COMMANDS - WR5 



END OF INTERRUPT 

CHANNEL RESET 

RESET ERRORS 

RESET EXT/STATUS INT. 



; INTERRUPT ON ALL RX CHAR. 



RX 7 BITS/CHAR 
RX 8 BITS/CHAR 
RX ENABLE 



X16 CLOCK 
2 STOP BITS 
1 STOP BIT 
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0080 
0002 
0008 
0020 
0060 



13CC 

13CC 43 

13CD 04 

13CE 00 

13CF 20 

13D0 OA 

13D1 OA 

a3D2 29 

a3D3 545459 
=1306 



QMMDTR EQU 
QMMRTS EQU 
QMMTXE EQU 
QMT7BIT EQU 
QMT8BIT EQU 



80H 

2 

8 

20H 
60H 



DTR ON 

RTS ON 

TX ENABLE 

TX 7 BITS/CHAR 

TX 8 BITS/CHAR 



CONTROL BLOCKS FOR EACH DEVICE 



PRINTER CONTROL BLOCK 



TPRTCB RS 









DB 


QPPRT 


f 


PORT ADDRESS 


DB 


QMINIT 


r 


USES XON/XOFF 


DB 





/ 


NUMBER OF CHARS. 


DB 


QKPRTBL 


/ 


CAPACITY 


DB 


QTDATA 




INPUT POINTER 


DB 


QTDATA 


t 


OUTPUT POINTER 


DB 


QTDATA- 


1+QKPRTBL 


DB 




7 


DEVICE ID 


RS 


QKPRTBL 


? 


DATA BUFFER 



COMM PORT CONTROL BLOCK 



13F6 



TCOMCB RS 
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=13F6 42 DB QPCOM ; PORT ADDRESS 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=13F7 06 

=13F8 00 

=13F9 20 

=13FA OA 

=13FB OA 

=13FC 29 

=13FD 505450 
= 1400 



= 1420 

=1420 22 

=1421 02 

=1422 00 

=1423 20 

=1424 OA 

=1425 OA 

=1426 29 

=1427 554331 
= 142A 



DB 
DB 
DB 
DB 
DB 
DB 
DB 
RS 



QMTYPE+QMINIT ; NO XON/XOFF 
; NUMBER OF CHARACTERS 

QKCOMBL ; CAPACITY 
QTDATA ; INPUT POINTER 
QTDATA ; OUTPUT POINTER 

QTDATA-l+QKCOMBL ; OFFSET OF LAST DATA BYTE 

•PTP' ; DEVICE ID 
QKCOMBL ; DATA BUFFER 



OPTIONAL COMM PORT CONTROL BLOCK 



TC0M2CB RS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
RS 





QPC0M2 
QMTYPE 


QKC0M2BL 
QTDATA 
QTDATA 



PORT ADDRESS 
NO XON/XOFF 
NUMBER OF CHARACTERS 

; CAPACITY 
INPUT POINTER 
OUTPUT POINTER 
QTDATA-1+QKC0M2BL ; OFFSET OF LAST DATA BYTE 

'UCl' ; DEVICE ID 

QKC0M2BL ; DATA BUFFER 



INITIALIZATION SEQUENCES FOR SIO 
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? PRINTER PORT 



=144A 

=144A 18 

=144B 14 

:^144C 4C 

=144D 13 

=144E 41 

=144F 15 

=1450 AA 

=1451 11 

=1452 18 

=1453 00 



= 1454 

=1454 18 

=1455 14 

=1456 44 

=1457 13 

=1458 CI 

=1459 15 

=145A EA 

=145B 11 

=145C 18 



TPRTISQ RS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

TPRTISI DB 
DB 
DB 



COMM PORT 



TCOMISQ RS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

TCOMISI DB 
DB 



QKCHRST 

4+QKRESI 

QMMX16+QMMST2 

3+QKRESI 

QMR7BIT+QMMRXE 

5+QKRESI 



CHANNEL RESET 
WR4 

X16 CLOCK, 2 STOP BITS 
WR3 

RX ENABLE, 7 BITS/CH 
WR5 



QMMDTR+QMMRTS+QMT7BIT+QMMTXE ; TX ENABLE, 7 BITS, RTS, DTR 



1+QKRESI 

QMMRXI 





; WRl 

: INTERRUPT ON ALL RX CHAR 
; END OF SEQUENCE 



QKCHRST 

4+QKRESI 

QMMX16+QMMST1 

3+QKRESI 

QMR8BIT+QMMRXE 

5+QKRESI 



CHANNEL RESET 
WR4 

X16 CLOCK, 1 STOP BIT 
WR3 

RX ENABLE, 8 BITS/CH 
WR5 

QMMDTR+QMMRTS+QMT8BIT+QMMTXE ; TX ENABLE, 8 BITS, RTS, DTR 
1+QKRESI ; WRl 

QMMRXI ; INTERRUPT ON ALL RX CHAR 
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=145D 00 DB ; END OF SEQUENCE 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=145E 

=145E 18 

=145F 14 

=1460 44 

=1461 13 

=1462 CI 

=1463 15 

=1464 EA 

=1465 11 

=1466 18 

=1467 00 



OPTIONAL COMM PORT 



TC0M2ISQ 



DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



RS 
QKCHRST 
4+QKRESI 
QMMX16+QMMST1 
3+QKRESI 
QMR8BIT+QMMRXE 
5+QKRESI 



CHANNEL RESET 
WR4 

XI 6 CLOCK, 1 STOP BIT 
WR3 

RX ENABLE, 8 BITS/CH 
WR5 

QMMDTR+QMMRTS+QMT8BIT+QMMTXE ; TX ENABLE, 8 BITS, RTS, DTR 
1+QKR^SI ; WRl 

QMMRXI ; INTERRUPT ON ALL RX CHAR 

; END OF SEQUENCE 



P232INIT - INITIALIZE RS232 (SIO) PORTS 

FUNCTION: INITIALIZES ALL RS232 PORTS FOR WHICH INITIALIZATION 
IS REQUIRED. 

ENTRY AND EXIT PARAMETERS: N/A 
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P212INIT • 

X ZL« ^ JL JL X • 






~" J. T u o 


U i_> _L O 




MOV 


OA rocix 




= 146B 


BE5114 




MOV 


SI, OFFSET 


TPRTISI ; PRINTER INIT SEQUENCE 


= 146E 


E81200 


1483 


CALL 


P232IPR 


: INITIALIZE 


= 1471 


BBF613 




MOV 


BX, OFFSET 


TCOMCB ; COMM CONTROL BLOCK 


= 1474 


BE5B14 




MOV 


SI, OFFSET 


TCOMISI ; COMM INIT SEQUENCE 


= 1477 


E80900 


1483 


CALL 


P232IPR 


; INITIALIZE 


= 147A 


BB2014 




MOV 


BX, OFFSET 


TC0M2CB • OPT COMM CONTROL BLOCK 


= 147D 


BE5E14 




MOV 


SI, OFFSET 


TC0M2ISQ ; OPT COMM INIT SEQUENCE 


= 1480 


E90000 


1483 


JMP 


P232IPR 


; INITIALIZE 








; P232IPR - 


INITIALIZE AN 


SIO PORT 



FUNCTION: INITIALIZES AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK. 
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED. 
(DOES NOT INITIALIZE BAUD RATES.) 

ENTRY: 

BX = POINTER TO CONTROL BLOCK 
SI = POINTER TO INITIALIZATION SEQUENCE 
(SEQUENCE ENDS WITH A ZERO BYTE) 

EXIT : N/A 



P232IPR: 

F6470104 TEST QTFLAGS [BX]',QMINIT ; INITIALIZATION REQUIRED? 
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=1487 7501 148A JNZ P232IP10 ; YES 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1489 C3 

=148A 8A17 
=148C 32F6 
=148E FC 

=148F AC 
=1490 84C0 
=1492 7501 
=1494 C3 

=1495 EE 
=1496 EBF7 



RET 
P232IP10: 

MOV 
XOR 
CLD 
P232IP20: 

LODSB 
TEST 
1495 JNZ 
RET 
P232IP30: 

OUT 

148F JMPS 



DL,QTPORT[BX] 
DH,DH 



AL,AL 
P232IP30 



DX,AL 
P232IP20 



; ELSE RETURN 

GET PORT ADDRESS 
MAKE 16 BIT ADDR 
SET FORWARD DIRECTION 

GET A BYTE 
END OF SEQUENCE? 
NO 

EXIT IF END 

; SEND IT TO PORT 
; GET NEXT BYTE 



P232IN - READ A CHARACTER 

FUNCTION: RETURNS ONE BYTE FROM CIRCULAR BUFFER FOR A SPECIFIED 
DEVICE. WAITS IF THE BUFFER IS EMPTY. IF XOFF HAS SUSPENDED INPUT, 
AND THE BUFFER IS EMPTY, SEND AN XON. 



ENTRY: 



BX = POINTER TO CONTROL BLOCK 
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; EXIT: 
P232IN: 

1498 8A4702 
149B 84C0 

149D 74F9 1498 
149F FA 
14A0 FE4F02 

14A3 7526 14CB 
14A5 FB 

14A6 2EF687010002 
14AC 751D 14CB 
14AE 2EF687010008 
14B4 7415 14CB 

P232IN2 

=1466 2EF687010001 
a4BC 75F8 14B6 
a4BE 2E80A70100F7 
= 14C4 51 
=14C5 Bill 

=14C7 E81900 14E3 
= 14CA 59 

P232IN1 

= 14CB FA 
a4CC 8A4705 



AL = CHARACTER 

MOV AL,QTNRCHR[BX] 

TEST AL,AL 

JZ P232IN 
CLI 

DEC QTNRCHR[BX] 

JNZ P232IN1 
STI 

TEST CSrQTFLAGS [BX]\QMTYPE 

JNZ P232IN1 

TEST CSrQTFLAGS [BX]',QMISUSP 

JZ P232IN1 

TEST CS : QTFLAGS [ BX]' , QMSUSP 

JNZ P232IN2 

AND CSrQTFLAGS [BXj^NOT QMI 

PUSH CX 

MOV CL^QKXON 

CALL P2320UT 

POP CX 

CLI 

MOV AL,QTOTPTR[BX] 



GET NUMBER OF CHARS. IN BUFFER 
IS IT ZERO? 
LOOP BACK IF SO 

DISABLE WHILE MANIPULATING BUFFER 
DECREMENT CHARACTER COUNT 
■JUMP AHEAD IF NOT ZERO ** 
TURN ON INTERRUPTS ** 
DO WE SUPPORT XON? ** 
NO. SKIP AHEAD ** 
YES. IS INPUT SUSPENDED? ** 

NO, BUFFER IS JUST EMPTY ** 

** 

IS OUTPUT SUSPENDED? ** 

YES, WAIT FOR IT ** 

P ; INPUT NOT SUSPENDED ** 

(JIC) ** 

OUTPUT AN . . . ** 

XON. ** 

** 
** 

NO MORE INTERRUPTS ** 
GET OUTPUT POINTER 
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=14CF 32E4 XOR AH, AH ; MAKE 16 BIT OFFSET 

CP/M ASM86 1.1 SOURCE.: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=14D1 8BF0 

=14D3 FECO 

=14D5 3A4706 

=14D8 7602 

=14DA BOOA 

=14DC 884705 

=14DF 8A00 

=14E1 FB 

=14E2 C3 



14DC 



P232IN4: 



MOV 
INC 
CMP 
JBE 
MOV 

MOV 
MOV 
STI 
RET 



P2320UT - WRITE A CHARACTER 



SI, AX 
AL 

AL,QTDEND[BX] 

P232IN4 

ALrQTDATA 

QTOTPTR[BX] ,AL 
AL, [BX+SI] 



MOVE TO INDEX REG. 
INCREMENT OUTPUT POINTER 
PAST END OF BUFFER? 
NO 

SET TO START OF BUFFER 

STORE UPDATED POINTER 
GET CHARACTER FROM BUFFER 
RE-ENABLE 
EXIT 



FUNCTION: WRITES A CHARACTER TO A SPECIFIED DEVICE, 



ENTRY : 



BX = POINTER TO CONTROL BLOCK 
CL = CHARACTER TO BE WRITTEN 



EXIT: N/A 



P2320UT: 



=14E3 8AE1 



MOV AH,CL 



; SAVE THE CHARACTER 



Page 



P232OUT0: 



14E5 8A17 MOV 

14E7 32F6 XOR 

14E9 F6470102 TEST 

14ED 7509 14F8 JNZ 

14EF 8AC4 MOV 

14F1 247F AND 

14F3 3C13 CMP 

14F5 7501 14F8 JNE 

14F7 C3 RET 

P2320UT1: 

14F8 33C9 XOR 

P2320UT2: 

:14FA EC IN 

14FB A804 TEST 

14FD 7522 1521 JNZ 

a4FF 51 PUSH 

= 1500 59 POP 

=1501 E2F7 14FA LOOP 

= 1503 50 PUSH 

= 1504 53 PUSH 

a505 8B4707 MOV 

=1508 2EA31B1E MOV 

=150C 8A4709 MOV 

a50F 2EA21D1E MOV 

=1513 BBOEIE MOV 

=1516 E8E2FD 12FB CALL 



DL,QTPORT[BX] 
DH,DH 

QTFLAGS [BX]',QMTYPE 

P2320UT1 

AL,AH 

AL,07FH 

AL,QKXOFF 

P2320UT1 

CX,CX 

AL,DX 

AL,QMTXR 

P2320UT3 

CX 

CX 

P2320UT2 

AX 

BX 

AX,QTDEVID[BX] 

P232T01,AX 

AL,QTDEVID+2[BX] 

P232T02,AL 

BX, OFFSET P232TO 

PMSG 



; GET PORT ADDRESS 

; MAKE 16 BIT ADDRESS 

; OK TO SEND XOFF? 

; YES 

; GET CHARACTER FOR TESTS 

; STRIP PARITY 

; IS IT XOFF? 

; NO - SEND IT 

; EXIT WITHOUT SENDING 

; INIT TIMEOUT LOOP COUNTER 

; GET PORT STATUS 

; TX READY? 

; YES - DO IT 

; THESE 2 INSTRUCTIONS ARE FILLERS 

; TO MAKE A VALID TIMEOUT 

; TRY IT AGAIN IF NO TIMEOUT YET 

; TIMEOUT - SOMETHING'S WRONG WITH 

; UART 

; PUT DEVICE ID INTO MESSAGE 



; WRITE TIMEOUT MESSAGE 
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=1519 E8A104 19BD CALL KQERY ; GET USER OPTION 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=151C 5B 

=151D 58 

=151E 74C5 

=1520 C3 

=1521 F6470101 

=1525 75FA 

=1527 80EA02 

=152A 8AC4 

=152C EE 

=152D C3 



14E5 



P2320UT3: 



1521 



POP 
POP 
JZ 
RET 
3: 
TEST 
JNZ 
SUB 
MOV 
OUT 
RET 



BX 
AX 

P232OUT0 



QTFLAGS [BX] ,QMSUSP 

P2320UT3 

DL,2 

AL,AH 

DX,AL 



; SUBROUTINE WILL NOT RETURN IF CTL-C 

; TRY AGAIN IF SPACE BAR 

; PRETEND IT'S OK IF ANY OTHER KEY 

IS OUTPUT SUSPENDED? 

YES - WAIT UNTIL ENABLED 
POINT TO DATA PORT 
GET CHARACTER 
SEND IT 
EXIT 



P232STI - RETURN INPUT STATUS 

FUNCTION: RETURNS A VALUE INDICATING WHETHER AN INPUT CHARACTER 
IS AVAILABLE FROM A SPECIFIED DEVICE. 



ENTRY: 



BX = POINTER TO CONTROL BLOCK 



EXIT: 



AL = 



IF NO CHARACTER IS READY (BUFFER EMPTY) 
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AL = X'FF' IF ONE OR MORE CHARACTERS ARE READY 



P232STI: 



=152E 8A4702 
=1531 84C0 
=1533 7501 
=1535 C3 

=1536 BOFF 
=1538 C3 



1536 



P232STI1: 



MOV AE , QTNRCHR [ BX ] 

TEST AL,AL 
JNZ P232STI1 
RET 
L: 

MOV AL,OFFH 
RET 



GET CURRENT NR OF CHARS. 
IS IT ZERO? 
NO 

RETURN "NOT READY" 
; SET "READY" 



P232STO - RETURN OUTPUT STATUS 

FUNCTION: RETURNS A VALUE INDICATING WHETHER THE SPECIFIED DEVICE IS 
READY TO ACCEPT AN OUTPUT CHARACTER. 

ENTRY: 

BX = POINTER TO CONTROL BLOCK 

EXIT: 

AL = IF DEVICE IS NOT READY TO ACCEPT A CHARACTER 

AL = X'FF' IF DEVICE IS READY TO ACCEPT A CHARACTER 

P232STO: 



=1539 8A17 



MOV 



DL,QTPORT[BX] 



; GET PORT ADDRESS 
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=153B 32F6 XOR DH,DH ; MAKE 16 BIT ADDRESS 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1530 EC 

=153E 2404 

=1540 7501 

=1542 C3 

=1543 32C0 

=1545 F6470101 

=1549 7401 

=154B C3 

=154C F6D0 

=154E C3 



IN 
AND 

1543 JNZ 
RET 
P232ST01: 

XOR 
TEST 

154C JZ 
RET 
P232ST03: 

NOT 
RET 



AL,DX 

AL^QMTXR 

P232ST01 



AL,AL 

QTFLAGS [BX] rQMSUSP 
P232ST03 



AL 



GET PORT STATUS 
IS TX READY? 
YES 

RETURN "NOT READY" 

SET "NOT READY" VALUE 
IS OUTPUT SUSPENDED? 
NO 

RETURN "NOT READY" 
; SET "READY" 



I232RX - HANDLE SIO RECEIVE INTERRUPTS 

FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS. 
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR. 

ENTRY AND EXIT PARAMETERS: N/A 



=154F 50 



I232RX: 

PUSH AX 



; SAVE REGISTERS 
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=1550 53 
=1551 52 

=1552 BBCC13 
=1555 E81B00 
=1558 BBF613 

=155B E81500 

=155E 80CA02 
=1561 80E2FE 
=1564 B038 
=1566 EE 

=1567 5A 

=1568 5B 

=1569 58 

=156A CF 



PUSH BX 
PUSH DX 

POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER 



BX, OFFSET TPRTCB 
I232RPT 

BX, OFFSET TCOMCB 
I232RPT 



MOV 

1573 CALL 
MOV 

I232RXX: 
1573 CALL 

; SEND END-OF-INTERRUPT 

OR DL,2 

AND DL,OFEH 

MOV AL,QKEOI 

OUT DX,AL 

; RESTORE REGISTERS AND EXIT 

POP DX 

POP BX 

POP AX 
IRET 



; PRINTER CONTROL BLOCK 



; COMM PORT CONTROL BLOCK 



I232RX2 - HANDLE OPTIONAL SIO RECEIVE INTERRUPTS 



FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS. 
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR. 



ENTRY AND EXIT PARAMETERS: N/A 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1568 50 

=156C 53 

=156D 52 

=156E BB2014 

=1571 EBE8 



I232RX2: 



155B 



PUSH 
PUSH 
PUSH 



AX 
BX 
DX 



; SAVE REGISTERS 



POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER 

MOV BX, OFFSET TC0M2CB ; COMM PORT CONTROL BLOCK 

JMPS I232RXX ;SAVE REGISTERS AND EXIT 



I232RPT 



PROCESS RECEIVED CHARACTER 



FUNCTION: IF A CHARACTER HAS BEEN RECEIVED AT A PORT, READS IT 
AND PLACES IT IN A CIRCULAR BUFFER. IF REQUIRED, PROCESSES 
XON/XOFF PROTOCOL AND SUBSTITUTES A 'SUB' CHARACTER WHEN A 
PARITY ERROR OCCURS. 



ENTRY : 



BX = POINTER TO CONTROL BLOCK 



EXIT: N/A 



REGISTER USE: 

AL PORT INPUT/OUTPUT 
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1573 2E8A970000 
1578 32F6 
157A EC 
157B A801 
157D 7501 

157F C3 

1580 A880 
1582 7409 
=1584 2E808F010010 
158A E9D100 



AH 
BX 
DX 



I232RPT: 

MOV 
XOR 
IN 

TEST 

1580 JNZ 
I232RPTX: 

RET 
I232RP05: 

TEST 
158D JZ 
OR 

165E JMP 



ERROR STATUS STORAGE 
CONTROL BLOCK POINTER 

PORT ADDRESS AND INPUT POINTER WORKING REG. 



DL,CS:QTPORT[BX] 

DH,DH 

AL,DX 

AL^QMRXR 

I232RP05 



GET PORT ADDRESS 
MAKE 16 BIT ADDRESS 
GET PORT STATUS 
RECEIVE READY? 
YES 



EXIT 



NO PROCESSING NECESSARY 



AL,QMBRK 
I232RP10 

CS: QTFLAGS[BX] .QMBREAK 
I232RP40 



BREAK? 



SIGNAL IT 



; PROCESS A RECEIVED CHARACTER 
I232RP10.: 



:158D 2EF687010010 
=1593 7409 
=1595 2E80A70100EF 
=159B E9C000 

=159E BOOl 
=15A0 EE 
=15A1 EC 



TEST 
159E JZ 
AND 

165E JMP 
I232RP11: 

MOV 
OUT 
IN 



CS:QTFLAGS[BX] rQMBREAK ; DO WE HAVE A BREAK? 
I232RP11 ; SKIP IF NOT 

CS:QTFLAGS [BX] ,NOT QMBREAK ;ELSE CLEAR FLAG 

I232RP40 ; AND GO AWAY 



AL,1 

DX,AL 

AL,DX 



; POINT TO RRl 
; WRITE TO SIO 
; READ RRl 
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=15A2 8AE0 MOV AH,AL ; SAVE IT 

CP/M ASM86 1,1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=15A4 B030 

=15A6 EE 

=15A7 80EA02 

=15AA EC 

=15AB F6C420 

=15AE 7406 

=15B0 2E80A70100FE 

=15B6 F6C410 

=15B9 7402 

=15BB BOIA 

=15BD 2EF687010002 

=15C3 7530 

=15C5 84C0 

=15C7 7501 

=15C9 C3 

=15CA 3C93 

=15CC 7404 

=15CE 3C13 

=15D0 7507 



MOV 
OUT 
SUB 
IN 



AL,QKRESERR 
DX,AL 
DL,2 
AL,DX 



; CHECK FOR RECEIVE ERRORS 
TEST AH^QMOVRE 



15B6 JZ 
AND 
I232RP12: 

TEST 
15BD JZ 
MOV 
I232RP14: 

TEST 

15F5 JNZ 



I232RP12 ; 
CS:QTFLAGS[BX] ,NOT QMSUSP 

AH,QMPARE 
I232RP14 
AErQKSUB 

CS : QTFLAGS [ BX]^ QMTYPE 
I232RP20 



; PROCESS XON/XOFF PROTOCOL 
TEST AL,AL 



15CA 



I232RP15: 



15D2 



15D9 



JNZ 
RET 

CMP 
JZ 
CMP 
JNE 



I232RP15 



AL,QKXOFFP 
I232RP15A 
AL,QKXOFF 
I232RP16 



RESET SIO ERRORS (IF ANY) 

POINT TO DATA PORT 
READ RECEIVED CHARACTER 

OVERRUN ERROR? 
NO 

; ENABLE OUTPUT (ASSUME XON LOST) 

PARITY ERROR? 
NO 

CHANGE RX CHAR. TO 'SUB' 

XON/XOFF APPLICABLE? 
NO - STORE CHARACTER 

CHECK FOR NULL 
NOT A NULL 

IGNORE NULL CHARACTERS 

IS IT XOFF+? 

YES 
IS IT XOFF? 

NO 



Page 40 



15D2 2E808F010001 
15D8 C3 

15D9 3C91 
15DB 7404 
15DD 3C11 
15DF 7514 

=15E1 F6C420 

=15E4 7508 

=15E6 2EF687010001 

=15EC 7407 

=15EE 2E80A70100FE 



I232RP15A: 
OR 
RET 

I232RP16: 

CMP 

15E1 JZ 
CMP 

15F5 JNE 
I232RP16A: 

TEST 

15EE JNZ 

TEST 
15F5 JZ 
I232RP18: 

AND 



CS:QTFLAGS[BX] ,QMSUSP 



AL.QKXONP 
I232RP16A 
AL,QKXON 
I232RP20 

AH^QMOVRE 
I232RP18 

CS :QTFLAGS [BX] ,QMSUSP 
I232RP20 



CS:QTFLAGS[BX] rNOT QMSUSP 



= 15F4 


C3 




RET 










; STORE CHARACTER IN BUFFER 








I232RP20: 




=15F5 


2E8A970200 




MOV 


DE,CS:QTNRCHR[BX] 


=15FA 


2E3A970300 




CMP 


DL,CS:QTCAP[BX] 


= 15FF 


744C 


164D 


JE 


I232RP30 


= 1601 


2EFE870200 




INC 


CS:QTNRCHR[BX] 


= 1606 


2E8A970400 




MOV 


DL,CS:QTINPTR[BX] 


= 160B 


2EFE870400 




INC 


CS:QTINPTR[BX] 


= 1610 


2E3A970600 




CMP 


DL,CS:QTDEND[BX] 


= 1615 


7206 


161D 


JB 


I232RP26 


= 1617 


2EC68704000A 




MOV 


CS:QTINPTR[BX] ,QTDATA 



SUSPEND OUTPUT 
AND EXIT 

IS IT XON? 

NO - STORE IT 
IS IT XON? 

NO - STORE IT 

WAS THERE AN OVERRUN ERROR? 

YES - ASSUME AN XOFF WAS LOST 
IS OUTPUT SUSPENDED? 

NO - STORE XON IN BUFFER 

; ENABLE OUTPUT 
AND EXIT 

GET NR. OF CHARS. IN BUFFER 
IS BUFFER FULL? 
YES 

INCREMENT CHARACTER COUNT 
GET INPUT POINTER 
INCREMENT POINTER 
PAST END OF BUFFER? 
NO 

SET TO START OF BUFFER 
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I232RP26: 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=161D 53 
=161E 03DA 
=1620 2E88870000 



=1625 5B 

=1626 2EF687010002 

=162C 751E 

=162E 2E8A970200 

=1633 02D2 

=1635 2E3A970300 

=163A 7610 

=163C 2EF687010008 

=1642 7508 

=1644 2E808F010008 

=164A EBOl 



PUSH 

ADD 

MOV 



BX 

BX,DX 

CS: [BX] ,AL 



; NEED TO SAVE POINTER 
; STORE UPDATED POINTER 
; STORE CHARACTER 



; NOW SEE IF BUFFER IS MORE THAN HALF FULL AND IF XOFF/XON 
; IS SUPPORTED, IF BOTH, SEND AN XOFF. 
BX 

CS : QTFLAGS [ BX ]^ QMTYPE 
I232RP28 

DL,CS:QTNRCHR[BX] 
DL,DL 

DL,CS:QTCAP[BX] 
I232RP28 



=164C C3 



POP 
TEST 

164C JNZ 
MOV 
ADD 
CMP 

164C JBE 
I232RP27: 

TEST 

164C JNZ 
OR 

164D JMPS 
I232RP28: 

RET 



CS : QTFLAGS [BXY , QMISUSP 
I232RP28 

CSrQTFLAGS [BX], QMISUSP 
I232RP32 



** 
** 
** 



XOFF SUPPORTED? 
GO AWAY IF NOT 
GET NO. OF CHARACTERS 

DOUBLE IT ** 

MORE THAN HALF-FULL? ** 

GO AWAY IF NOT ** 

OUTPUT A XOFF ** 
UNLESS INPUT IS ALREADY SUSP- ** 

ENDED. ** 

SUSPEND INPUT ** 

OUTPUT IT ** 

** 

AND EXIT 



ERROR CONDITION ROUTINES 



BUFFER IS FULL, OR HALF-FULE, OR SOMETHING 
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=164D 2E8A970000 

=1652 EC 
=1653 A804 
=1655 74FB 
=1657 B013 
=1659 80EA02 
=165C EE 
=165D C3 



I232RP30: 
I232RP32: 

MOV 
I232RP3a: 

IN 

TEST 
1652 JZ 
MOV 
SUB 
OUT 
RET 



; ENTER HERE FOR XOFF 



DE,CS:QTPORT[BX] 

AL,DX 

AL,QMTXR 

I232RP33 

AL,QKXOFF 

DL,2 

DX,AL 



BREAK CONDITION 



AND EXIT 







I232RP40: 






= 165E 


BOlO 


MOV 


AL,QKRESI 


; RESET BREAK CONDITION 


= 1660 


EE 


OUT 


DX.AL 




=1661 


B030 


MOV 


AL^QKRESERR 


; RESET ANY OTHER ERRORS 


= 1663 


EE 


OUT 


DX.AL 




=1664 


80EA02 


SUB 


DL,2 


; POINT TO DATA PORT 


= 1667 


EC 


IN 


AL^DX 


; CLEAR INPUT 


= 1668 


C3 


RET 










. ************************************************* 








PHYSICAL DEVICE DRIVERS 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1669 BBF613 
=166C E929FE 



PTR: AND PTP: DRIVERS 



PTRIN: 



1498 



MOV BX, OFFSET TCOMCB 

JMP P232IN 



; POINT TO CONTROL BLOCK 



=166F BBF613 
=1672 E96EFE 



PTPOUT : 



14E3 



MOV BX, OFFSET TCOMCB 

JMP P2320UT 



; POINT TO CONTROL BLOCK 



=1675 BBF613 
=1678 E9B3FE 



=167B BBCC13 
=167E E917FE 



PTRST: 

MOV 

152E JMP 



TTY: DRIVERS 
TTYIN: 

MOV 
JMP 



BX, OFFSET TCOMCB 
P232STI 



1498 



BX, OFFSET TPRTCB 
P232IN 



; POINT TO CONTROL BLOCK 



; POINT TO CONTROL BLOCK 



TTYOUT : 
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=1681 BBCC13 
=1684 E95CFE 



14E3 



MOV BX, OFFSET TPRTCB 

JMP P2320UT 



; POINT TO CONTROL BLOCK 



=1687 BBCC13 
=168A E9A1FE 



TTYSTI : 



152E 



MOV BX, OFFSET TPRTCB 

JMP P232STI 



; POINT TO CONTROL BLOCK 



=168D BBCC13 
=1690 E9A6FE 



= OOIA 



TTYSTO: 



1539 



MOV BX, OFFSET TPRTCB 

JMP P232STO 



NULL DEVICE DRIVERS 



QKCTLZ EQU 26 



; POINT TO CONTROL BLOCK 



; END OF FILE (CTL-Z) 



=1693 BOIA 
=1695 C3 



PNULIN: 



MOV 
RET 



AL, QKCTLZ 



; INDICATE END OF FILE 



=1696 C3 



PNULOUT : 



RET 



; ACCEPT ALL CHARACTERS 



PNULSTI : 



=1697 BOFF 



MOV ALrOFFH 



; INDICATE DEVICE READY 
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=1699 C3 RET 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



= 1697 



PNULSTO EQU PNULSTI 



1675 
1669 
1384 



1681 
168D 



=169A BB2014 
=169D E9F8FD 



BATCH drivers 

BATST EQU PTRST 

BATIN EQU PTRIN 

BATOUT EQU CRTOUT 

LPT: DRIVERS 

LPTOUT EQU TTYOUT 

LPTSTO EQU TTYSTO 



UCl: DRIVERS 



UCIIN: 



1498 



MOV BX, OFFSET TC0M2CB 

JMP P232IN 



; POINT TO CONTROL BLOCK 



UCIOUT: 



Page 



16A0 BB2014 
16A3 E93DFE 

16A6 BB2014 
16A9 E982FE 



169A 
16A6 



1693 
1697 



16A0 
1696 



MOV 

14E3 JMP 
7 

UCIST: 

MOV 

152E JMP 



BX, OFFSET TC0M2CB 
P2320UT 

BX, OFFSET TC0M2CB 
P232STI 



; URl: DRIVERS 

URIIN EQU UCIIN 

URIST EQU UCIST 

; UR2: DRIVERS 

UR2IN EQU PNULIN 

UR2ST EQU PNULSTI 

; UPl: AND UP2: DRIVERS 

UPlOUT EQU UCIOUT 

UP20UT EQU PNULOUT 

; ULl: DRIVERS 



1696 



ULIOUT EQU 



PNULOUT 



POINT TO CONTROL BLOCK 



POINT TO CONTROL BLOCK 



Page 47 

= 1697 ULIST EQU PNULSTO 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=16AC 2EFF26CF16 CONST: jmp word ptr constjmp 



;console status 



=1681 2EFF26D116 



CONIN: ;console input 

jmp word ptr coninjmp 



=16B6 2EFF26D316 CONOUT : jmp word ptr conoutjmp 



;console output 



=16BB 2EFF26D916 LISTST: jmp word ptr liststjmp 



;list device status 



=16C0 2EFF26DB16 



LISTOUT:jmp word ptr listoutjmp 



;output to list device 



=16C5 2EFF26D716 PUNCH: jmp word ptr punchjmp 



;output to punch 



=16CA 2EFF26D516 READER: jmp word ptr readerjmp 



; input from reader 



=16CF BF13 

=16D1 8E13 

=16D3 8413 

=16D5 6916 

=16D7 6F16 



;Indirect jump table for I/O 

constjmp dw CRTSTI 

coninjmp dw CRTIN 

conoutjmp dw CRTOUT 

readerjmp dw PTRIN 

punchjmp dw PTPOUT 
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16D9 8D16 liststjmp dw LPTSTO 

16DB 8116 listoutjmp dw LPTOUT 



GETIOBF: 

16DD 2EA0A41C mov al^IOBYTE 

16E1 C3 ret 



SETIOBF: 

16E2 2E880EA41C mov IOBYTE,cl ;set iobyte 

IF NOT LOADER BIOS 



mov dr,offse 
mov si,offse 
call cioset 
call iojset 
call iojset 
call iojset 
call cioset 
call iojset 
call cioset 
call iojset 
call cioset 



t constjmp 
t iojtbl 



;low two bits 
:const 
;conin 
;conout 

;second two bits 
;reader 

;third two bits 
;punch 

;high two bits 
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= call iojset ;listst 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



call iojset ;listout 
ret 



iojtbl dw TTYSTI ;CONST 

dw CRTSTI 

dw BATST 

dw UCIST 



dw TTYIN ;CONIN 

dw CRTIN 

dw BATIN 

dw UCIIN 



dw TTYOUT ;CONOUT 

dw CRTOUT 

dw BATOUT 

dw UCIOUT 



dw TTYIN ; READER 

dw PTRIN 

dw URIIN 

dw UR2IN 



dw 



TTYOUT ; PUNCH 
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dw PTPOUT 

dw UPlOUT 

dw UP20UT 

dw TTYSTO ;LISTST 

dw CRTSTO 

dw LPTSTO 

dw ULIST 

dw TTYOUT ; LPTOUT 

dw CRTOUT 

dw LPTOUT 

dw LIOUT 



cioset: ;Set the offsets in bx according to the low two bits in cl 

mov bx,3 ;and then rotate cl twice 

and bl,cl ; 

add bx,bx ;twice the number for offset 

shr cl,l ;shift cl right 

shr cl,l ;twice 
ret 



iojset: ;Move the appropriate entry from the jump list to the indirect 

mov cs :ax , [bx+si] ;jump table and then increment the pointers 

mov cs: [di] ,ax ;for the next call 
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= add si, 8 ; 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



add di,2 



=16E7 C3 



ENDIF ;not loader_bios 
ret 



=16E8 BB261E 
=16EB C3 



GETSEGT: ;return address of physical memory table 
mov bx, off set seg_table 
ret 



=16EC IE 

=16ED 06 

=16EE 51 

=16EF 52 

=16F0 BF0800 

=16F3 CD28 

=16F5 5D 

=16F6 8EDD 

=16F8 5E 

=16F9 8B04 

=16FB 8B5C02 

=16FE 8B4C04 



VIDEO: ;Output video directly to PC-100 via int 40 
push ds 
push es 
push cx 
push dx 
mov di,8 
int 40 
pop bp 
mov ds,bp 

pop SI 

mov ax , [si] 
mov bx,2[si] 
mov cx,4[si] 



; turn cursor off 



I 
I 
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=1701 8B5406 
=1704 8B7408 
=1707 BF1400 
=170A CD28 
=170C BFOAOO 
=170F CD28 
=1711 07 
=1712 IF 
=1713 C3 



mov dx,6[si] 
mov si, 8 [si] 
itiov di , 14h 
int 40 
mov di,Oah 
int 40 
pop es 
pop ds 
ret 



; move in the video 



; turn cursor on 



INCLUDE CPLBLOK.LIB 
SECTOR BLOCKING/DEBLOCKING 

Modified for CP/M 86/80 
May 1982 by CPL (RK) 



= 0000 



********************************************** 

* * 

* CP/M to host disk constants * 

* * 
***************************************************** 

una equ byte ptr [BX] ;naine for byte at BX 



0004 
0800 
0200 



nrdisks equ 
blksiz equ 
hstsiz equ 



4 

2048 
512 



;four disks allowed 
;CP/M allocation size 
;host disk sector size 
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= OOOA hstspt equ 10 ;host disk sectors/trk 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



0004 
FDOO 



0002 
0028 
0003 



hstblk equ hstsiz/128 ;CP/M sects/host buff 

pb2_adr+xdef buf ;buffer in shared itiemory 



xfrbuf equ 



********************************************** 

* * 

* secshf is log2 (hstblk) , and is listed below for * 

* values of hstsiz up to 2048. * 

* * 

* hstsiz hstblk secshf * 

* 256 2 1 * 

* 512 4 2 * 

* 1024 8 3 * 

* 2048 16 4 * 

* * 
***************************************************** 

secshf equ 2 ; log2 (hstblk) 

cpmspt equ hstblk * hstspt ;CP/M sectors/track 

secmsk equ hstblk-1 ;sector mask 



BDOS constants on entry to write 



* 



* 
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0000 
0001 
0002 



wrall equ 
wrdir equ 1 
wrual equ 2 



;write to allocated 
;write to directory 
;write to unallocated 



************************************************ 

* * 

* BDOS function table beginning * 

* * 
************************************************ 

if not loader bios 



1714 80F904 
1717 7204 
1719 BBOOOO 
171C C3 



bdos_f tbl 
bdos dlog 



equ 
equ 



OaSOh 
22eah 



endif ;not loader__bios 

***************************************************** 

* * 

* The BIOS entry points given below show the * 

* code which is relevant to deblocking only. * 

* * 

***************************************************** 



seldsk : 



171D 



cmp cl,nrdisks 
jb seldskl 
mov bx, 
ret 



;valid disk number? 
;go ahead if ok 
;else zero bx 

;and let bdos take care of it 
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= ;select disk 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



;is this the first activation of the drive? 



seldski: 



=171D 2EA0A01A 

=1721 3CFF 

=1723 7409 

=1725 F6C201 

=1728 7510 

=172A 3AC1 

=172C 750C 

=172E 2EC606A51A00 

=1734 2EC606A71A00 

=173A 8AC198 

=173D 2EA29C1A 

=1741 B104D2E0 

=1745 05B51A 

=1748 8BD8 



172E 



173A 



173A 



mov al,hstdsk 
cmp al^Offh 
je seldsk2 
test DL,1 
jnz selset 

;if this is the first activation, clear host buff 



;which disk? 

;absolutely first activation? 
;go clear host buffer 
;lsb = 0? 



cmp al,cl 
jne selset 

seldsk2: 

mov hstact,0 
mov unacnt, 

selset: 

mov ar,cl ! cbw 
mov sekdsk,al 
mov cl,4 1 shl al,cl 
add ax,offset dpbase 
mov bx, ax 
if not loader bios 



;but is this the same disk? 
;if not, don't 



;put in AX 

;seek disk number 

;times 16 



;check for Robin media on any unallocated disk called 
push dx ;save dx and bx 

push bx 
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seldO : 



mov bx,word ptr 

or bx,bx 

jz seldl 

pop bx 

push bx 

add bx,Oah 

mov bx, [bx] 

or bx/bx 

jz seld2 

mov mediatype,0 

cmp bx,dpbO 

jz seldO 

mov media type, 2 

pop bx 

pop dx 

ret 



.bdos_dlog ;get allocation vector 

;any allocated? 
;skip ahead if none 
;else find out . . . 
? 

;if this disk has been checked 

?get dpb offset 

;zero? not checked yet 

;go check it if so 

;assume Rainbow 

;is it really? 

;move on if so 

;else mark as Robin 

; then * . • 

# 

;return 



seldl: xor ax,ax ;zero all dpb's 

mov bx,offset dpbase+Oah ;dpb offset from base 

mov cx,nrdisks ;loop for all disks 



seldll: mov [bx] ,ax 
add bx,10h 
loop seldll 



;zero a dpb 

;get the next one 

;loop till done 



seld2: mov ax, 15h 
push ax 



;get media type 
;via packer 
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= mov al,sekdsk ;get disk number back again 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



mov cl , 5 

rol aXfCl 

push ax 

mov cx,2 

call packer 

pop ax 

pop ax 

xor b}(,bx 

mov media type, ah 

mov bl,ah 

add bx,mediatbl 

mov dx , [bx] 

pop bx 

push bx 

add bX/Oah 

mov [bx] ,dx 

pop bx 

pop dx 



and put in proper 
position for packet 

move 2 words 

;discard drive number 

;ah has status/media type 

;clean out a register 

;mark the media type 

;get the type (Rainbow = (T, robin 

;add the table address 

;get contents of table 

r 

;get dpb pointer 

;put address ilnto pointer 
;get return data 



= 2 



=174A C3 



endif 
ret 



;not loader bios 



home : 



;home the selected disk 
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=174B 2EA0A61A 
=174F 84C0 

=1751 7506 1759 
=1753 2EC606A51A00 

=1759 B90000 



homed : 



mov al,hstwrt 
test ar,al 
jnz homed 
mov hstact,0 

mov cx,0 

(continue HOME routine) 



;check for pending write 



;clear host active flag 



;noW, set track zero 



=175C 2E890E9D1A 
=1761 C3 



settr k : 



;set track given by registers CX 

mov sektrk^CX ;track to seek 

ret 



setsec : 



=1762 2E880E9F1A 
=1767 C3 



;set sector given by register cl 

mov sekseccl ;sector to seek 

ret 



=1768 2E890EB21A 
=176D C3 



setdma ! 



rset dma address given by CX 

mov dma__off,CX 

ret 



=176E 2E890EB01A 
=1773 C3 



setdmab: 



;set segment address given by CX 

mov dma_seg,CX 

ret 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



sectran : 



=1774 85D2 

=1776 7409 

=1778 8BD9 

=177A 03DA 

=177C 8A1F 

=177E B700 

=1780 C3 



=1781 8BD9 
=1783 C3 



1781 



jtranslate sector number CX with table at [DX] 
test DX,DX ;test for hard skewed 

jz notran ; (blocked must be hard skewed) 

mov BX,CX 
add BX,DX 
mov BE, [BX] 
mov BH,0 
ret 



no tran: 



?*** be compatible with 86/80 (fix 5/21/82) *** 



;hard skewed disk, physical = logical sector 

mov BX,CX 

ret 



read ! 



=1784 2EC606A71A00 
=178A 2EC606AE1A01 
=1790 2EC606AD1A01 
=1796 2EC606AF1A02 
=179C E98D00 



182C 



;read the selected CP/M sector 

mov unacnt,0 ;clear unallocated counter 

mov readop,l ;read operation 

mov rsflag,l ;must read data 

mov wrtype,wrual ; treat as unalloc 

jmp rwoper ;to perform the read 



write : 



rwrite the selected CP/M sector 
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if not loader bios 



179F 2EC606AE1A00 

=17A5 2E880EAF1A 

=17AA 80F902 

=17AD 751E 



test mediatype ,0f f h 

jz okwrite 

mov bx,offset unabl 

call pmsg 

call prthst 

mov bx,offset endlin 

call pmsg 

mov ax, 1 

ret 



;is this Rainbow media? 

;go write if so 

; 'unable to write...' 

;print it 

;print drive no. 

? 

;print cr,lf. 
;mark for error 
;return 



okwrite : 



=17AF 2EC606A71A10 

=17B5 2EA09C1A 

=17B9 2EA2A81A 

=17BD 2EA19D1A 

=17C1 2EA3A91A 

=17C5 2EA09F1A 



endif ;not loader_bios 

mov readop, ;write operation 

mov wrtype,cl 

cmp cl/Wrual ;write unallocated? 

17CD jnz chkuna ;check for unalloc 



write to unallocated, set parameters 

mov unacnt, (blksiz/128) ;next unalloc recs 

mov al'rsekdsk ;disk to seek 

mov unadskr,al ;unadsk = sekdsk 
mov ax,sektrk 

mov unatrk,ax ;unatrk = sektrk 
mov al'rseksec 
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=17C9 2EA2AB1A mov unasec,al ;unasec = seksec 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



chkuna : 



;check for write to unallocated sector 



=17CD BBA71A 
=17D0 8A0784C0 
=17D4 744A 



1820 



mov bx, offset unacnt ;point "UNA" at UNACNT 
mov al,una 1 test ar,al ;any unalloc remain? 
jz alloc ;skip if not 



more unallocated records remain 



=17D6 FEC8 

=17D8 8807 

=17DA 2EA09C1A 

=17DE BBA81A 

=17E1 3A07 

=17E3 753B 



1820 



dec al 

mov una^al 

mov al^sekdsk 

mov BX, offset unadsk 

cmp al^una 

jnz alloc 



;unacnt = unacnt-1 

;same disk? 

;sekdsk = unadsk? 
;skip if not 



=17E5 2EA1A91A 
=17E9 2E3B069D1A 
=17EE 7530 



1820 



disks are the same 
mov AXr unatrk 
cmp AX, sektrk 
jnz alloc 



;skip if not 



=17F0 2EA09F1A 



tracks are the same 
mov al, seksec 



;same sector? 
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= 17F4 


BBABIA 






mov BX, offset unasec ;point una at unasec 


= 

= 17F7 


3A0 7 






cmp al,una rseksec = unasec? 


= 17F9 


7525 


1820 




jnz alloc ;skip if not 


= 








match, move to next sector for future ref 








[ 


(Code modified for skewed sectors) 


— 1 /r D 


oLoy 






mov CX/US ; set up ljo 


= 17FD 


8EC1 






mov eSfCx 


= 17FF 


FC 






eld ; scan forward 


=1800 


B92700 






mov cx/Cpmspt-1 ; set count for scan 


=1803 


BFU41B 






mov di,xlt0 ; point to translate table 


= 1oUd 


F2AE 






repne scasb ; scan for sector number 


= 1808 


E306 


1810 




jcxz ovf ; didn't find it 


=180A 


8 AO 5 






mov al,[di] ; get nr of next sector 


= 180C 


8807 






mov una^al 


=180E 


EB08 


1818 




jmps noovf 








7 


overflow to next track 








ovf : 




=lolU 


Ldu /UU 






mov una/0 ; unasec = 


=1813 


2EFF06A91A 






inc unatrk ; unatr k=unatrk+l 








? 

noovf : 












;match found, mark as unnecessary read 


=1818 


2EC606AD1A00 






mov rsflag^O ;rsflag = 
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=181E EBOC 182C jmps rwoper ;to perforin the write 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1820 2EC606A71A00 
=1826 2EC606AD1A01 



=182C 2EC606AC1A00 
=1832 2EA09F1A 
=1836 B102 
=1838 D2E8 
=183A FECO 
=183C 2EA2A41A 



alloc : 

;not an unallocated record, requires pre-read 
mov unacnt/O ;unacnt = 

mov rsflag,l ;rsflag = 1 

;drop through to rwoper 

***************************************** 

* * 

* Common code for READ and WRITE follows * 

* * 
***************************************************** 



rwoper : 



;enter here to perform the read/write 

mov erflag^O ;no errors (yet) 

mov al / seksec ;compute host sector 
mov cl, secshf 
shr al,cl 

inc al ;*** added for 1-based sectors *** 

mov sekhst,al ;host sector to seek 



=1840 BOOl 

=1842 2E8606A51A 



active host sector? 
mov al,l 

xchg al,hstact ;always becomes 1 
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=1847 84C0 
=1849 7437 



1882 



test al,al 
jz filhst 



;was it already? 
;fill host if not 



=184B 2EA09C1A 
=184F 2E3A06A01A 
=1854 7516 



186C 



host buffer active, same as seek buffer? 
mov al,sekdsk 

cmp al,hstdsk ;sekdsk = hstdsk? 

jnz nomatch 



=1856 2EA1A11A 
=185A 2E3B069D1A 
=185F 750B 



186C 



same disk, same track? 
mov ax,hsttrk 

cmp ax,sektrk ;host track same as seek track 

jnz nomatch 



=1861 2EA0A41A 

=1865 2E3A06A31A 

=186A 744A 18B6 



nomatch : 



=186C 2EA0A61A 

=1870 84C0 

=1872 740E 1882 

=1874 E8A500 191C 

=1877 2EA0AC1A 

=187B OACO 

=187D 7403 1882 



same disk, same track', same buffer? 
mov al,sekhst 

cmp al,hstsec ;sekhst = hstsec? 

jz match ;skip if match 

;proper disk, but not correct sector 
mov ar, hstwrt 
test al,al 
jz filhst 
call writehst 
(check errors here) 
mov al, erf lag 
or al,al 
jz filhst 



; "dirty" buffer ? 
;no, don't need to write 
;yes, clear host buff 



;any? 

;skip if none 
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=187F E99500 1917 jmp return_rw ;exit if so 

GP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



filhst: 

=1882 2EA09C1A2EA2 
AOIA 

=188A 2EA19D1A2EA3 
AHA 

=1892 2EA0A41A2EA2 

A31A 
=189A 2EA0AD1A 
=189E 84C0 

=18A0 740E 18B0 

=18A2 E8CD00 1972 

=18A5 2EA0AC1A 
=18A9 OACO 

=18AB 7403 18B0 
=18AD E96700 1917 

filhstl: 

=18B0 2EC606A61A00 mov hstwrt,0 ;no pending write 

= match: 



;may have to fill the host buffer 

mov al/sekdsk 1 mov hstdsk,al 

mov ax,sektrk 1 mov hsttrk^ax 

mov al^sekhst 1 mov hstsecf/al 

mov al^rsflag 

test ar,al ;need to read? 

jz filhstl 

call readhst ;yes', if 1 

(check errors here) 
mov al^erflag 

or al,al ;any? 

jz filhstl ;skip if none 

jmp return__rw ;exit if so 
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=18B6 2EA09F1A 
=18BA 250300 
=18BD B107D3E0 



;copy data to or from buffer depending on "readop" 
mov al,seksec ;mask buffer number 

and axrsecmsk ;least signif bits are masked 

mov cl, 7 1 shl ax,cl ;shift left 7 (* 128 = 2**7) 



ax has relative host buffer offset 



=18C1 05003A 

=18C4 05A200 

=18C7 8BF0 

=18C9 2E8B3EB21A 



add ax,dbptr 
add ax, xshrbuf 
mov si, ax 
mov di,dma off 



; address of data block 
;*** new buffer for CP/M 86/80 *** 
;put in source index register 
;user buffer is dest if readop 



=18CE 1E06 



push DS 1 push ES 



;save segment registers 



=18D0 2E8E06B01A 



=18D5 2BC0 
=18D7 8ED8 
=18D9 B98000 
=18DC 2EA0AE1A 
=18E0 84G0 
=18E2 7511 



18F5 



mov ES,dma seg 



sub ax, ax 
mov ds,ax 
mov cx, 128 
mov al, readop 
test ar,al 
jnz rwmovx 



;set destseg to the users seg 
;SI/DI and DS/ES is swapped 
;if write op 

;*** added for CP/M 86/80 *** 
;which needs ds=0 (*** end add ***) 
;length of move in bytes 

;which way? 
;skip if read 



=18E4 2EC606A61A01 
«18EA 87F7 



write operation, mark and switch direction 

mov hstwrt,l ;hstwrt = 1 (dirty buffer now) 

xchg si,di ;source/dest index swap 
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=18EC 8CD8 mov ax,DS 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=18EE 8EC0 mov ES,ax 

=18F0 2E8E1EB01A mov DS,dma_seg ;setup DS,ES for write 

=18F5 E82000 1918 rwmovx : call rwmove 



=18F8 071F 



pop ES i pop DS 



;restore segment registers 



movdone : 



=18FA 2E803EAF1A01 
=1900 2EA0AC1A 
=1904 7511 



1917 



data has been moved to/from host buffer 

cmp wrtype^wrdir ;write type to directory? 

mov al^erflag ;in case of errors 

jnz return_rw ;no further processing 



clear host buffer for directory write 



=1906 84C0 

=1908 750D 1917 
=190A 2EC606A61A00 
=1910 E80900 191C 
=1913 2EA0AC1A 

=1917 C3 



test al^al 
jnz return_rw 
mov hstwrt,0 
call writehst 
mov al, erf lag 
return_rw: 
ret 



;errors? 
;skip if so 
;buffer written 



* this subroutine is made available * 
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;* for other parts of CP/M. * 

.************************************************ 



rwmove : 

if not loader bios 



Added for PClOO — RK/CPL ~ 4/13/82 
test Z80FLAG,true ; is z80 running? 

jnz rwml ; 

jmp niove88 ;nornial move if z80 not running 



rwml : push cx 

mov aytfCx 
mov bx,ds 
mov dx,es 
test bx,0ff80h 
jnz nsz80p 
mov cl,4 
shl bx,cl 
add bx,si 
cmp bx,800h 
jb sz80p 



;preserve the count 
;get the count into accum 
;check the source segment 
;and destination segment 
;out of Z80 private? 
;jump ahead if it is 
;set for shl 
;mult by 16 

;get absolute address for Z80 
;in z80 pvt? 
;jump ahead so 



nszSOp: test dx,0ff80h 
jz nszl 
jmp notz80 

nszl: mov cl,4 



source is not z80 private. 

jump ahead if destination isn't, either 
set for shl 



= shl dx,cl 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized 



add dXrdi 
cmp dx,800h 
jb dzBOp 
jmp notzBO 



dzBOp: mov bx,ds 

test bXrOfOOOh 
jnz dzsBSp 
mov cl,A 
shl bx,cl 
add bx, si 
jc dzsBBp 
add bx,ax 
jnc notBB 



dzsBBp: pop cx 

cmp cx,12B 
jbe dzsl 
mov cx,12B 

dzsl: push ds 
push cx 
push es 
push di 
xor ax, ax 
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;mul dest seg by 16 
Loader Basic I/O Sy 

;create absolute address 
;dest in zBO pvt? 

;jump ahead if not 

;destination is in zBO pvt, source isn* 

;check for source in 80BB pvt 

;dest zBQ, source BOBB. 

7 

7 

;absolute source 

;dest zBO, source BOBB. 

;how about the end of the source? 

;zBO move if low enough 

;dest in zBO pvt, source in BOBB pvt 
;is count too big? 

;make it maximum if so 
;save ds for later 
;save count for later 

; zero . . . 



mov es,ax 
mov di,xfrbuf 
call move88 
pop di 
pop es 
mov ds,ax 
mov si/Xfrbuf 
pop cx 
call movzSO 
pop ds 
ret 

sz80p: mov dx,es 

test dx^OfOOOh 
jnz dSBszp 
mov cl,4 
shl dx,cl 
add dx,di 
jc dSBszp 
add dx^ax 
jnc notSB 

d88szp: pop cx 

cmp cx,128 
jbe d88sl 
mov cx,128 

d88sl: push ds 
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;the destination segment 
;destination is buffer 
;move source to buffer 

;zero the source segment 
;source is buffer 

;move buffer to destination after restoring cx 
;restore ds 

;source is in z80 pvt, destination isn't 
;check for destination in 8088 pvt 
;dest 8088, source z80. 

7 

;absolute destination 

;source z80, destination 8088, 

;how about the end of the destination? 

;z80 move if low enough 

;dest in z80 pvt, source in 8088 pvt 

;is count too big? 

7 

;make it maximum if so 
;save ds for later 
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= push cx ;save count for later 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



push es 
push di 
xor ax, ax 
mov esrax 
mov di,xfrbuf 
call movz80 
pop di 
pop es 
mov ds,ax 
mov sirxfrbuf 
call moveSB 
pop ds 
ret 



zero . . . 

the destination segment 
destination is buffer 
move source to buffer 



zero the source segment 
source is buffer 

move buffer to destination after restoring cx 
restore ds 



notSB: pop cx 



;do a zBO move and exit 



movzSO: mov bx,ds 
mov dx,es 
push cx 
mov cl, 4 
shl bx^cl 
shl dx,cl 
add bx,si 
add dx,di 



Z80 move to emulate 8088 move 



bx has source absolute 

dx has destination absolute 
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mov ax,22h 
pop cx 
push ax 
push bx 
push dx 
push cx 
mov cx/0004 
xor al,al 
call packer 
pop ax 
pop ax 
pop ax 
pop ax 
ret 



function: transfer . 
to Z80 move routine 
via packer 



4 words stacked 
zero for Z80 wait 
call interface layer 
after return', 
level the stack 



go past 8088 move 



notz80: pop cx 



;don*t use z80 move 



move88 : 



endif 



;continue to normal — end of additiion 



;not loader bios 



1918 FCF3A4 
191B C3 



eld ! rep movs AL^AL ;move as bytes 

ret ;end of move subroutine 



* * 

* WRITEHST performs the physical write to the host * 
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= ;* disk, while READHST reads the physical disk. 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



.************************************************** 



;| Code added for pclOO, CP/M 86/80 4/13/82 



= writehst: 
=191C B81400 rewhst: mov ax,0014h 

=191F E83B01 1A5D call rwhst 

=1922 F6C4FC test ah,Ofch 

=1925 7501 1928 jnz wragain 

=1927 C3 ret 



;try once (or retry) 

7 

;check for error 
;try if any error 
;else it's done 



wragain: 



=1928 F6C480 
=192B 7514 
=192D F6C440 
=1930 7531 
=1932 F6C401 
=1935 7510 
=1937 BB8F1D 
=193A E8BEF9 
=193D E8BF00 
=1940 C3 



1941 

1963 

1947 

12FB 
19FF 



test ah,80h 
jnz wnrdy 
test ah,40h 
jnz writeprot 
test ah,l 
jnz wrsker 

mov bx,offset biwmsg 
call pmsg 
call rwer r 
ret 



; If at first . . . 

;is the drive ready? 

;error if not 

;is drive wr ite-protected? 
;error if so 
;seek error 

;then give up. 

;no sense making a fool of yourself 
;print messages 
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=1941 E87000 
=1944 74D6 
=1946 C3 

=1947 BBA71D 
=194A E8AEF9 
=194D E8FC00 
=1950 BBFBID 
=1953 E8A5F9 
=1956 2EA1A11A 
=195A E8D200 
=195D E85D00 
=1960 74BA 
=1962 C3 

=1963 BB5C1D 
=1966 E892F9 
=1969 E8E000 
=196C E84E00 
=196F 74AB 
=1971 C3 



=1972 B81300 



19B4 wnrdy: call notready 
191C jz rewhst 

ret 

wrsker: mov bx, off set skmsg 
12FB call pmsg 

1A4C call prthst 

mov bx^offset trkmsg 
12FB call pmsg 

mov ax/hsttrk 
1A2F call decprt 

19BD call kqery 

191C jz rewhst 

ret 

writeprot : 

mov bx, off set wpmsg 
12FB call pmsg 

1A4C call prthst 

19BD call kqery 

191C jz rewhst 

ret 

readhst : 

rerhst: mov aXf0013h 



;disk not ready, print message 
;try again if so directed 
;else return with error 



;print drive number 
;print * track * 

;get track number 
;print decimal 

;try again? 

;or return with error 

;disk is wr ite-protected 

7print error message 
;print which one 
;check keys 

;try again if directed 
;else return with bios error 



;ask interface layer 
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=1975 E8E500 1A5D call rwhst 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1978 F6C4FC 
=197B 7501 
=197D C3 



197E 



test ah',Ofch 
jnz rdagain 
ret 



jcheck for error 
;jump ahead if error 
;else you're done 



rdagain : 



=197E F6C480 

=1981 750F 

=1983 F6C401 

=1986 7510 

=1988 BB781D 

=198B E86DF9 

=198E E86E00 

=1991 C3 



1992 

1998 

12FB 
19FF 



test ah,80h 
jnz rdnrdy 
test ah,l 
jnz rdsker 

mov bx, offset birmsg 
call pmsg 
call rwerr 
ret 



;drive ready? 

;go away if not 

;seek error? 

;take care of it 

;then give up. 

;print an error message 

;print messages 



=1992 E81F00 
=1995 74DB 
=1997 C3 



19B4 rdnrdy: call notready 
1972 jz readhst 

ret 



;not ready — print message', etc. 
;try again if directed 
;else return with error 



=1998 BBA71D 
=199B E85DF9 
=199E E8AB00 
=19A1 BBFBID 
=19A4 E854F9 
=19A7 2EA1A11A 



tdsker: mov bx, off set skmsg 
12FB call pmsg 

1A4C call prthst 

mov bx, off set trkmsg 
12FB call pmsg 

mov ax,hsttrk 



;print drive number 
;print 'track* 

;get track number 
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19AB E88100 
19AE E80C00 
19B1 74BF 
19B3 C3 



1A2F 
19BD 
1972 



call decprt 
call kqery 
jz rerhst 
ret 



;print decimal 

;try again? 

;or return with error 



notready : 

19B4 BBBEID mov bx,offset nrmsg 

19B7 E841F9 12FB call pmsg 

19BA E88F00 1A4C call prthst 



;routine to print "not ready" 
;get message address 
;print it then fall through . 
;print which one 



19BD BBCFIC 

19C0 E838F9 

19C3 E8EBFC 

19C6 3C03 

a9C8 7515 

:19CA 2EC606A71A00 

a9D0 2EC606A51A00 

=19D6 2EC606AF1A02 



kqery: 

mov bx /Offset kqmsg 

12FB call pmsg 

16B1 call CONIN 

cmp al/03 

19DF jnz kqnex 

mov unacnt/0 
mov hstact,0 
mov wrtype,wrual 
if not loader bios 



;routine to check keyboard fo 
;standard keyboard message 
;print it 
;get character 
;ctrl c? 

;skip ahead if not 
;clear write flags 



;clear z80 flag 
;start over if so 



mov Z80FLAG, false 
call revector 
mov cl/byte ptr .curdrvs 
jmp ccp+3 ;go back to ccp 



endif ;not loader bios 



= if loader_bios 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=19DC E998F9 



1377 



jmp WBOOT 



=19DF 3C20 
=19E1 7503 
=19E3 32C0 
=19E5 C3 

=19E6 2EC606AC1A01 
=19EC 2EC606A71A00 
=19F2 2EC606A51A00 
=19F8 2EC606AF1A02 
=19FE C3 



endif ;loader__bios 
kqnex : cmp al , * * 
19E6 jnz kqret 

xor al,al 
ret 

kqret: mov erflag'^l 
mov unacnt,0 
mov hstact,0 
mov wrtype,wrual 
ret 



space bar for retry 

other key for error return 

zero it 

error code 

clear write flags 



else return 



****************************************** 
* 

* print disk, track, sector 

* 

****************************************** 



=19FF E84A00 
=1A02 BBFBID 
=1A05 E8F3F8 
=1A08 2EA1A11A 



1A4C rwerr: 



12FB 



call prthst 

mov bx,offset trkmsg 

call pmsg 

mov ax,hsttrk 



;print disk" :" 
;print" TRACK " 

;print track no. 
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=1A0C 


E82000 


1A2F 




call decprt 






=1A0F 


BB041E 






mov bx, off set 


secmsg 


;print " SECTOR " 


= 1A12 


E8E6F8 


12FB 




call pmsg 






= 1A15 


2EA0A31A 






mov al,hstsec 




;print sector no. 


= 1A19 


32E4 






xor ah, ah 






=1A1B 


E81100 


1A2F 




call decprt 






= 1A1E 


BB201D 






mov bx, offset 


kqxmsg 


;ask for options 


= 1A21 


E8D7F8 


12FB 




call pmsg 






=1A24 


E88AFC 


16B1 




call CONIN 




7 


= 1A27 


3C0D 






cmp al,cr 




;carriage return? 


= 1A29 


7S01 


1A2C 




ine rwmker 




:mark error if not 


=1A2B 


C3 






ret 




;ignore if return 


= 1A2C 


E9B7FF 


19E6 


rwmker : 


jmp kqret 




?return with marked error 


= 
= 






decprt : 


;enter with number to 


be printed in ax 


=1A2F 


33C9 






xor cx,cx 




;count digits in cx 


==1A31 


33D2 




rediv: 


xor dx,dx 




;clear the remainder 


= 1A33 


BBOAOO 






mov bx,10 






= 1A36 


F7F3 






div bx 




;divide by 10 


= 1A38 


41 






inc cx 




;bump the count 


= 1A39 


52 






push dx 




;store digit 


= 1A3A 


OBCO 






or ax, ax 




;any more? 


=1A3C 


75F3 


1A31 




jnz rediv 




;loop if so 


=1A3E 


5A 




redout : 


pop dx 




;the last shall be first 


=1A3F 


51 






push cx 




;store the count 


=:1A40 


8ACA 






mov cl,dl 




;remainder in dl to cl 


= 1A42 


80C130 






add cl, '0 • 




;ascii number 
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=1A45 E86EFC 16B6 call CONOUT ;print digit 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1A48 59 
=1A49 E2F3 
=1A4B C3 



1A3E 



pop cx 
loop redout 
ret 



;get the count 
;loop back if more 
;else return 



=1A4C 2E8A0EA01A 
=1A51 80C141 
=1A54 E85FFC 
=1A57 B13A 
=1A59 E85AFC 
=1A5C C3 



prthst: ;print disk, A:, B:, etc. 

mov cl,hstdsk ;get the number 

add cl,'A' 

16B6 call CONOUT ;Print it 

mov c 1 , ' : * 

16B6 call CONOUT ;print a colon 

ret 



****************************************** 
* 

* read/write from host 

* 

****************************************** 



=1A5D 50 

=1A5E B400 

=1A60 B104 

=1A62 2EA0A01A 

=1A66 D3C0 

=1A68 BBB51A 



rwhst: push ax 
mov ah,0 
mov cl,4 
mov al,hstdsk 
rol ax,cl 

mov bx, off set dpbase 



;function set for packer 
;clear high 
;set for rol 
;disk number 
; times 32 

;get disk data address 
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=1A6B 03D8 


add bx,ax 


;for this disk 


=1A6D 8B17 


mov dx , [bx] 


;get pointer in dx 


=1A6F 2E8A1EA31A 


mov bl^hstsec 


;host sector 


=1A74 DICO 


rol ax,l 


;rotate drive once more 


=1A76 80E31F 


and bl,lfh 


;mask sector number (jic) 


=1A79 0AC3 


or al^bl 


;combine sector 


=1A7B 2E8B1EA11A 


mov bx^hsttrk 


;and track 


=1A80 8AE3 


mov ah,bl 


;in one byte 


=1A82 50 


push ax 


;stack for packer (2) 


=1A83 B8003A 


mov ax,dbptr 


; point to data block 


=1A86 05A200 


add a3^/xshrbuf 


;point to buffer 


=1A89 50 


push ax 


;(3) 


=1A8A B80100 


mov ax/0001 




=1A8D 50 


push ax 


;(4) 


=1A8E B80000 


mov ax,0 


;wait for z80 


=1A91 B90400 


mov cxr4 


;4 words for packer 


=1A94 E80CF8 12A3 


call packer 


; 


=1A97 58 


pop ax 


;level the stack 


=1A98 58 


pop ax 


; 


=1A99 58 


pop ax 




=1A9A 58 


pop ax 




=1A9B C3 


ret 


;go away when done 



I I 

I End of added code | 
I 1 
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I 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



* Use the GENDEF utility to create disk def tables * 

* * 
****************************************** 

dpbase equ offset $ 

disk parameter tables go here 



=1A9C 
=1A9D 
= 1A9F 



***************************************************** 

* * 

* Uninitialized RAM areas follow, including the * 

* areas created by the GENDEF utility listed above. * 

* * 

***************************************************** 

sek dsk rb 1 



sek_trk rw 
sek sec rb 



;seek disk number 
;seek track number 
;seek sector number 



=1AA0 FF 
= 1AA1 
= 1AA3 



hst_dsk db 
hst_trk rw 
hst sec rb 



Of fh 

1 

1 



;host disk number 
;host track number 
;host sector number 



= 1AA4 
= 1AA5 



sek_hst rb 
hst act rb 



;seek shr secshf 
;host active flag 



1AA6 




h s t_wr t 


rb 


1 


1AA7 




una_cnt 


rb 


1 


1AA8 




una_dsk 


rb 


1 


1AA9 




una__trk 


rw 


1 


lAAB 




una_s8C 


rb 


1 


lAAC 




erflag 


rb 


1 


lAAD 




rsf lag 


rb 


1 


lAAE 




re ad op 


rb 


1 


lAAF 




wrtype 


rb 


1 


lABO 




dma_seg 


rw 


1 


:1AB2 




dma_of f 


rw 


1 


= 1AB4 




media type rb 


1 






;hstbuf 


rb 


hstsiz 








end 










INCLUDE 


CAT. LIB 








DISKS 5 




1AB5 


dpbase 


equ 


$ 


= 1AB5 


041B0000 


dpeO 


dw 


xlta^OOOOh 


= 1AB9 


00000000 




dw 


0000h',0000h 


= 1ABD 


3F1BF51A 




dw 


dirbuf rdpbO 


aACl 


D81BBF1B 




dw 


csvQ^alvO 


=1AC5 


041B0000 


dpel 


dw 


xltl^OOOOh 


= 1AC9 


00000000 




dw 


OOOOh'^OOOOh 


=1ACD 


3F1BF51A 




dw 


dirbuf ,dpbl 


aADl 


111CF81B 




dw 


csvl^alvl 
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;host written flag 

;unalloc rec cnt 
;last unalloc disk 
;last unalloc track 
;last unalloc sector 

;error reporting 

;read sector flag 

;1 if read operation 

;write operation type 

;last dma segment 

;last dma offset 

;Rainbow or Robin media 

;host buffer (not in CP/M 86/80) 



jBase of Disk Parameter Blocks 

/Translate Table 

;Scratch Area 

;Dir Buff, Parm Block 

;Check, Alloc Vectors 

/Translate Table 

/Scratch Area 

;Dir Buff, Parm Block 

/Check, Alloc Vectors 
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= 1AD5 


041B0000 


dpe2 dw 


xltz, OOOOn 


;Translate Table 


CP/M ASMS 6 1.1 


bUUKLci : LFLDolUb.Aob 


Custoinized Loader 


Basic i/u by 


= 1AD9 


00000000 


d w 


UUUUIl , UUUUIl 




= 1ADD 


3F1BF51A 


ClW 


a 1 r Dur , apDz 


;Dir Buff, Parm Block 


= 1AE1 


4A1C311C 


dw 


csv2,alv2 


;Check, Alloc Vectors 


= 1AE5 


041B0000 


dpe3 dw 


xlt3,0000h 


;Translate Table 


= 1AE9 


00000000 


dw 


0000h',0000h 


;Scratch Area 


= 1AED 


3F1BF51A 


dw 


dirbuf ,dpb3 


;Dir Buff, Parm Block 


= 1AF1 


831C6A1C 


dw 


csv3,alv3 


; Check, Alloc Vectors 






; — DUMMY DISK FOR ROBIN MEDIA 


REFERENCE 






DISKDEF 0,0,39,1,2048,195,128,128,2 


= 1AF5 


dpbO equ 


offset $ 


;Disk Parameter Block 


= 1AF5 


2800 


dw 


40 


;Sectors Per Track 


= 1AF7 


04 


db 


4 


;Block Shift 


= 1AF8 


OF 


db 


15 


;Block Mask 


= 1AF9 


01 


db 


1 


;Extnt Mask 


= 1AFA 


C200 


dw 


194 


;Disk Size - 1 


= 1AFC 


7F00 


dw 


127 


;Directory Max 


= 1AFE 


CO 


db 


192 


;Alloc0 


= 1AFF 


00 


db 





;Allocl 


= 1B00 


2000 


dw 


32 


;Check Size 


= 1B02 


0200 


dw 


2 


;0f f set 


= 1B04 


xltO equ 


offset $ 


;Translate Table 






;** Modified 


for Rainbow media 




= 1304 


00010203 


db 


0,1,2,3 




= 1B08 


08090A0B 


db 


8,9,ia,ll 
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=1B0C 10111213 




db 


16,17, 


IS, 


19 




=1B10 18191A1B 




db 


24,25, 


26, 


27 




=1B14 20212223 




db 


32,33, 


34, 


35 




=1B18 04050607 




db 


4,5,6, 


7 






=1B1C OCODOEOF 




db 


12,1?, 


14, 


15 




=1B20 14151617 




db 


20,21, 


22, 


23 




=1B24 ICIDIEIF 




db 


28,29, 


30, 


31 




=1B28 24252627 




db 


36,37, 


38, 


39 




= 0019 


also 


equ 


25 






;Allocation Vector Size 


= 0020 


cssO 


equ 


32 






;Check Vector Size 


= 


f 


DISKDEF 


1,0 








= 1AF5 


dpbl 


equ 


dpbO 






;Equivalent Parameters 


= 0019 


alsl 


equ 


also 






;Saine Allocation Vector Size 


= 0020 


cssl 


equ 


cssO 






;Same Checksum Vector Size 


= 1B04 


xltl 


equ 


xltO 






;Same Translate Table 


= 




DISKDEF 


2,0 








= 1AF5 


dpb2 


equ 


dpbO 






;Equivalent Parameters 


= 0019 


als2 


equ 


also 






;Same Allocation Vector Size 


= 0020 


css2 


equ 


cssO 






;Same Checksum Vector Size 


= 1B04 


xlt2 


equ 


xltO 






;Same Translate Table 


= 




DISKDEF 


3,0 








= 1AF5 


dpb3 


equ 


dpbO 






;Equivalent Parameters 


= 0019 


als3 


equ 


also 






;Same Allocation Vector Size 


= 0020 


css3 


equ 


cssO 






;Same Checksum Vector Size 


= 1B04 


xlt3 


equ 


XltO 






;Same Translate Table 




r 


DISKDEF 


4,0,35,1, 


,1024, 


171,64,64,2 


= 1B2C 


dpb4 


equ 


offset $ 




;Disk Parameter Block 
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=1B2C 


2400 


dw 


36 




;Sectors Per Track 


CP/M ASMS 6 1.1 


SOURCE: CPLDBIOS.A86 


Cus toini zed 


Loader Basic I/O Sy 


=1B2E 


03 


db 


3 




;Block Shift 


=1B2F 


07 


db 


7 




;Block Mask 


=1B30 


00 


db 







;Extnt Mask 


= 1B31 


AAOO 


dw 


170 




;Disk Size - 1 


= 1B33 


3F00 


dw 


63 




;Directory Max 


=1B35 


CO 


db 


192 




;AllocO 


= 1B36 


00 


db 







;Allocl 


= 1B37 


1000 


dw 


16 




;Check Size 


= 1B39 


0200 


dw 


2 




;Offset 


= 1B04 


xlt4 equ 


xltO 




;Translate Table 


= OOOC 


als4 equ 


12 




;Allocation Vector Size 


= 0010 


css4 equ 


16 




;Check Vector Size 






; ENDEF 












; Table 


for transfering 


dpb's between rainbow and 


= 1B3B 


mediatbl 


equ offset $ 




=1B3B 


F51A 




dw 


dpbO 


;Rainbow PC-lOO 


= 1B3D 


2C1B 




dw 


dpb4 


; Robin 



Uninitialized Scratch Memory Follows: 



= 1B3F 
= 1B3F 



begdat equ 
dirbuf rs 



offset $ 
128 



;Start of Scratch Area 
;Directory Buffer 
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=1BBF 
= 1BD8 
= 1BF8 
= 1C11 
= 1C31 
= 1C4A 
= 1C6A 
= 1C83 
= 1CA3 
= 0164 
=1CA3 00 



alvO rs also ;Alloc Vector 

csvO rs cssO ;Check Vector 

alvl rs alsl ;Alloc Vector 

csvl rs cssl ;Check Vector 

alv2 rs als2 ;Alloc Vector 

csv2 rs css2 ;Check Vector 

alv3 rs als3 ;Alloc Vector 

csv3 rs css3 ;Check Vector 

enddat equ offset $ ;End of Scratch Area 

datsiz equ offset $-begdat ;Size of Scratch Area 

db ;Marks End of Module 



INCLUDE CPLBIOS2.A86 



********************************************* 

* * 

* Data Areas * 

* * 
********************************************* 



= 1AB2 



dma adr equ dma off 



=1CA4 00 
=1CA5 0000 
=1CA7 00 



lOBYTE db 
BXHLD dw 
xoff_flg db 



;store bx here 



Page 87 



CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



IF loader bios 



=1CA8 1B5B324A1B5B signon db 27, ' [2J'^27, ' [3;1H* 

333B3148 

=1CB2 ODOAODOA db cr,lf,cr,lf 

= 1CB6 435G2F4D2D38 DB •CP/M-86/80 Loading . . . •^,CR,LF,0 

362F3830204C 
6F6164696E67 
202E2E2E0D0A 
00 



ENDIF ;loader bios 



;error messages: 



=1CCF 0D0A50726573 
73204354524C 
2D4320746F20 
726573746172 
742C200D0A 

=1CEC 737061636520 
62617220746F 



kqmsg db cr , If , 'Press CTRL-C to restart, •^,cr',lf 



db 



•space bar to retry, or any other key to continue. * 
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207265747279 
2C206F722061 
6E79206F7468 
6572206B6579 
20746F20636F 
6E74696E7565 
2E 

=1D1D ODOAOO 



endlin db cr,lf,0 



=1D20 ODOA 

=1D22 507265737320 
52657475726E 
20746F206967 
6E6F72652065 
72726F722C20 
616E79206F74 
686572206B65 
7920746F2063 
6F6E74696E75 
65 

=1D59 ODOAOO 



kqxmsg db cr',lf 

db 'Press Return to ignore error', any other key to continue* 



db cr,lf,0 



=1D5C 0D0A44726976 
652077726974 
652D70726F74 
656374656420 
2D2D2000 



wpmsg db cr, If, 'Drive wr ite-protected — '^,0 
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CP/M ASM86 1,1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=1D78 0D0A52656164 erl db cr ,lf , 'Read error on drive •',0 

206572726F72 
206F6E206472 
6976652000 

=1D8F 0D0A57726974 er2 db cr Mf, 'Write error on drive "^,0 

65206572726F 
72206F6E2064 
726976652000 

=1DA7 0D0A5365656B skmsg db cr, If, 'Seek error on drive "^.O 

206572726F72 
206F6E206472 
6976652000 

=1DBE 0D0A44726976 er5 db cr,lf, 'Drive not ready ~ •',0 

65206E6F7420 
726561647920 
2D2D2000 

=1DD4 0D0A43616E6E unabl db cr , If , 'Cannot write on VT180 disk on drive '^^O 

6F7420777269 
7465206F6E20 
565431383020 
6469736B206F 
6E2064726976 
652000 

=1DFB 2C2074726163 trkmsg db track ',0 
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6B2000 

=1EG4 2C2073656374 secmsg db , sector "^,0 

6F722000 



1D78 
1D8F 
IDBE 



birmsg equ erl 
biwmsg equ er2 
nrmsg equ er5 



=1E0E 0D0A54696D65 
6F7574206F6E 
20 

=1E1B 4544 
=1E1D 563A00 



p232to db 



p232tol dw 
p232to2 db 



cr , If ^ 'Timeout on ' 



•DE* 
•V: ',0 



if 

dispst db 

end if 



not loader^bios 




=1E20 
=1E22 
= 1E24 



SEGHLD rw 1 
RTNHLD rw 1 
COUNT rw 1 



save segment 

save return address 



System Memory Segment Table 



=1E26 
=1E27 



segtable rb 1 
rw 4 



;2 segments 

;rooj^ for two segs 
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CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



IF not loader bios 



; I I 

signon db 27 , * [ 2 J 27 , ' [3 ; IH • 

DB ' CP/M-86/80 Version • 

db version__number+ * ' 

db 

db rev_nuinb^r+ '0 * 
; db 

; db mod_number+ ' • 

db ' (1.1) "^^CR^LF 

DB '(c) Copyright 1981 Digital Research Inc.'^rCR^LF 

DB '(c) Copyright 1982 Digital Equipment Corporation '^^cr^lf 

db cr,lf,0 



;l 



= ENDIF ;not loader_bios 

=1E2F loc_stk rw 24 ;local stack for initialization 

1E5F stkbase equ offset $ 



= 1E5F 
= 0226 



lastoff equ offset $ 

tpa_seg equ (lastoff +0400h+15) / 16 
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ODD! 
1E5F 00 



tpa_len equ 0FF7h - tpa_seg 

db ;fill last address for GENCMD 



0000 



0000 
0002 

0004 



* * 

* Dummy Data Section * 

* * 

***************************************** 

dseg ;absolute low memory 

org ; (interrupt vectors) 

intO_offset rw 1 

intO_segment rw 1 

; pad to system call vector 

rw 2*(bdos int-1) 



0380 
0382 

0090 
0092 
0094 
0096 

009C 
009E 

OOBO 



bdos_offset rw 1 

bdos_segment rw 1 

org 36*4 

sio_offset rw 1 

sio_seg rw 1 

sio2__offset rw 1 

sio2_seg rw 1 

org 39*4 

Z80_OFFSET RW 1 

Z80_SEG RW 1 

org 44*4 

tp44_offset rw 1 



;type 36 service 



;type 39 service 
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=00B2 tp44_seg rw 1 

CP/M ASM86 1.1 SOURCE: CPLDBIOS.A86 Customized Loader Basic I/O Sy 



=0190 
=0192 



org 100*4 
tplOO_offset rw 1 
tplOO_seg rw 1 



= 0040 



= 0006 



ic1cicicici(icisicic*icicieiciciciicicitic1cicicitic1cicicicicic1cif1c1c1c1e1tic1t1citie*ici(ieic1c** 



DUMMY CODE SECTION (FOR FAR CALL TO Z80CCP SERVICES) 



************************************************ 



END 



CSEG 40h 
ORG 6h 
CCPSERV EQU $ 



; ABSOLUTE LOCATION 



END OF ASSEMBLY. NUMBER OF ERRORS: 



0. USE FACTOR: 39% 
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CP/M MACRO ASSEM 2.0 #001 CODE FOR Z80 BASE PAGE 



TITLE 'CODE FOR Z80 BASE PAGE' 



WRITTEN FOR DEC RAINBOW 100 
BY CPL 
JULY 1982 
10/15/82 - ADDED UDELAY SUBROUTINE 



MACLIB Z80 



; Z80 MNEMONICS 



0100 



ORG 10 OH 



0100 0000000000 



DW 0,0,0,0,0,0,0,0 



; BYTES 00 THRU OF 



0110 0000000000 
0118 C30000 
OllB 0000000000 



DW 
JMP 



0,0,0,0 




DB 0,0,0,0,0 



; BYTES 10 THRU IF 

BYTES 18 THRU lA = RST3 



0120 76 
0121+18FD 

0123 FB 

0124 76 



HLT 

JR 

DB 

EI 
HLT 



$-2 

18H,$-2-$-l 



; BYTES 20 THRU 2F 

; BYTES 20 THRU 22 = RST4 



; BYTES 23 THROUGH 25 CONTAIN 
SUBROUTINE FOR WAITING 
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0125 C9 



RET 



0126 0000000000 



DB 0,0, 0,0,0, a, a, 0,0,0 



0130 C30000 
0133 0000000000 



; BYTES 30 THRU 3F 
JMP ; BYTES 30 THRU 32 = RST6 

DB 0,0 ,0,0,0 ,0,0,0, a, 0,0, 0,0 



ENTRY CONDITIONS FOR DISK I/O LOOP 
PORT NUMBER IS IN C 
BUFFER ADDRESS IS IN HL 



LOOP: 



0140 DB40 

0142 87 

0143 F8 

0144+30FA 
0146+EDA2 
0148+18F6 



IN 

ADD 

RM 

JRNC 

DB 

INI 

DB 

JR 

DB 



40H 
A 

LOOP 

30H,LOOP-$-l 

0EDH,0A2H 
LOOP 

18H,L00P-$-l 



DISK I/O LOOP IS ORG'D AT 40H 
GET GENERAL FLOPPY STATUS 
SHIFT INTERRUPT BIT TO SIGN 
EXIT IF DONE 
LOOP IF NO DRQ 

; READ A BYTE 

; TEST AGAIN 



UDELAY - SOFTWARE DELAY SUBROUTINE 



RETURNS AFTER NUMBER OF 0.500 MILLISECONDS SPECIFIED IN REG. C 
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ENTRY: C = NUMBER OF 0.500 MILLISECONDS TO DELAY 



EXIT: REG C = 0; OTHERS ARE PRESERVED 



UDELAY: 

CP/M MACRO ASSEM 2.0 #002 



014A C5 
014B 0697 



014D+10FE 
014F CI 

0150 OD 

0151 C8 

0152+18F6 



UDELl: 



PUSH 
MVI 

DJNZ 

DB 

POP 

DCR 

RZ 

JR 

DB 



CODE FOR Z80 BASE PAGE 

B ; SAVE BC 

B,151 ; SET FOR 151 COUNTS 

UDELl ; DELAY 
10H,UDEL1~$~1 



B 
C 

UDELAY 



RESTORE BC 

DECREMENT 0.500 MS. COUNT 
RETURN IF DONE 
DELAY AGAIN 



18H,UDELAY-$-l 



0154 0000000000 

0160 0000000000 

0170 0000000000 

0180 0000000000 

0190 0000000000 

OlAO 0000000000 

OIBO 0000000000 

OICO 0000000000 

OlDO 0000000000 



Dw , , , a , , 

DW 0,0, 0,0,0, a, 0,0 

DW o,o,o,o,o,a,a,o 

DW 0,0,0,0,0,0,0,0 

DW 0,0,0,0,0,0,0,0 

DW 0,0,0,0,0,0,0,0 

DW 0,0,0,0,0,0,0,0 

bW 0,0,0,0,0,0,0,0 

DW 0,0,0,0,0,0,0,0 



BYTES 
BYTES 
BYTES 
BYTES 
BYTES 
BYTES 
BYTES 
BYTES 
BYTES 



54 THRU 5F 
60 THRU 6F 
70 THRU 7F 
80 THRU 8F 
90 THRU 9F 
AO THRU AF 
BO THRU BF 
CO THRU CF 
DO THRU DF 
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OlEO 0000000000 DW 0,0,0,0,0,0,0,0 ; BYTES EO THRU EF 

OlFO 0000000000 DW 0,0,0,0,0,0,0,0 ; BYTES FO THRU FF 

0200 END 

CP/M MACRO ASSEM 2.0 #003 CODE FOR Z80 BASE PAGE 

0000 BC 0002 DE 0004 HL 0004 IX 0004 lY 

0140 LOOP 014D UDELl 014A UDELAY 
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CP/M MACRO ASSEM 2.0 #001 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 

TITLE 'Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION' 



0000 = 
FFFF = 

FFFF = 



FALSE 
TRUE 



EQU 
EQU 



PRIVATE EQU 



NOT FALSE 
TRUE 



; ASSEMBLE PRIVATE VERSION 



0000 = SHARE EQU NOT PRIVATE 

MACLIB Z80 
PAGE 

CP/M MACRO ASSEM 2.0 #002 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



IF SHARE 

iciti(ic*iciticicieicicic*icic*-k-kic'kit-kieicic'kicit'k'k'k*it'kie*it'kic 



* 






* 


* 


PSEUDO-BIOS FOR 


Z80 


* 


* 


CP/M 86/80 




* 


* 






* 


* 


04/1Q/82 


RDK 


* 


* 


10/19/82 1100 


LZ 


* 


* 
* 


11/22/82 1200 


LZ 


* 
* 



**************************************** 



ORG 



0F600H 



;CHANGE THIS IF NECESSARY TO RE-ORG 



lOBYTE EQU 

FDOSM EQU 

CSFLAG EQU 

BIOCS EQU 

BDCS EQU 



3 

90H 

0FFE7H 

1 

2 



; ** JUMP TABLE FOR STARTING: 
PSBDOS: 

JMP PSBDOSl 
JMP START 
; ** PSEUDO BDOS: 



; INITIALIZE RST 3 AND 6 



T>SBD0S1: 



MOV A,C 
CPI 41 
RNC 



** VER 1.0.3 
** VER 1.0.4 

** VER 1.0.4 BAD BDOS CALL 
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CPI 11 


. ** 


VER 


1.0 


.3 




JRZ PCONS 


. ** 


VER 


1.0 


.3 


CONSOLE STATUS 


JRNC PSBDl 


. ** 


VER 


1.0 


.4 




CPI 6 


. ** 


VER 


1.0 


.3 




JRZ PDRC , 


* * 


VER 


1.0 


.3 


DIRECT I/O 


CPI 7 


** 


VER 


1.0 


.3 




JZ PGIOB 


** 


VER 


1.0 


.3 


GET lOBYTE 


CPI 8 


,-kic 


VER 


1.0 


.3 




JZ PSIOB 


. ** 


VER 


1.0 


.3 


STORE lOBYTE 



PSBDl: 

CALL PACKIT 



LXI 


H.GTABLE 


.4:* 
/ 


VER 


1.0 


.4 


START CHECK TO SEE 


MVI 


B,0 


/ 


VER 


1.0 


.4 


IF WE CAN RETURN BEFORE 


DAD 


B 


. ** 


VER 


1.0 


.4 


THE 8088 IS FINISHED 


MOV 


A,M 


1 


VER 


1.0 


.4 


GET CODE 


STA 


GONOW 


. ** 
t 


VER 


1.0 


.4 


STORE IT 



MVI A^FDOSM ;BDOS FUNCTION CODE 

PSEUX: CALL PSEUD 

CALL UNPSTAK 
RET 



PCONS.: 



CP/M MACRO ASSEM 2.0 



LDA CSFLAG 
ANI BDCS 
JRNZ PCONSl 



VER 
VER 
VER 



1.0.3 
1.0.3 
1.0.4 



#003 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



PCONSl: 



PDRC: 



PDRCl; 



CALL lOBCHK 


. ** 


VER 


1.0.4 


JRNZ PSBDl 


. ** 


VER 


1.0.4 


LDA CSFLAG 


. ** 


VER 


1.0.4 


ANI BIOCS 


** 


VER 


1.0.4 


RZ 


** 


VER 


1.0.3 


MVI A,OFFH 


. ** 


VER 


1.0.3 


RET 


. 


VER 


1.0.3 


MOV A,E 


. ** 


VER 


1.0.3 


CPI OFFH 


. ** 


VER 


1.0.3 


JRZ PDRCl 


. ** 


VER 


1.0.4 


MOV C,E 


. 


VER 


1.0.4 


JMP CONOUT 


► ** 


VER 


1.0.4 


CALL CONST 


** 


VER 


1.0.3 


JRNZ PSBDl 


. ** 


VER 


1.0.3 


RET 


. ** 


VER 


1.0.3 



PSEUD: STA PACKET 
LDA GONOW 
STA PACKET+1 
LXI H, PACKET 
CALL I88SVC 
LDA GONOW 
ORA A 
RZ 

CALL WAIT88 
PSEUDl: CALL UNPACKIT 
RET 



;** VER 1.0.4 
;** VER 1.0.4 

; REQUEST 8080 PROCESSING ( 1.0.3) 
;** VER 1.0.4 
;** VER 1.0.4 
;** VER 1.0.4 
;** VER 1.0.4 
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;** DATA AREA 

PACKET DB 0, 0,0, 0,0,0, a, a, a, 



. * 
. * 


THE MESSAGE PACKET WILL 


LOOK 


LIKE THIS: 




• is 


BYTE 


USED 


Z80 


o n o o 

oOoo 


USED 


• * 

r * 




FOR 


REG 


REG 


AT 


. * 





FUNCTION 




AH 


ENTRY 


r * 


1 


RET VAL 


A 


AL 


RETURN 


. * 


2 


FUNCTION NO. 


C 


CL 


ENTRY 




3 




B 


CH 


ENTRY 


. * 


4 




E 


DL 


ENTRY 


• it 


5 




D 


DH 


ENTRY 


f * 


6 




L 


BL 


RETURN 


• * 


7 




H 


BH 


RETURN 


• -k 

• * 


8 


lOBYTE 






BOTH 




SUBROUTINE 


TO PUT REGISTERS IN 


PACKET FOR 


BIOS OR 



(GONOW ON ENTRY) 



PACKIT: 
REPSTAK: 
CP/M MACRO ASSEM 2.0 



#004 



; ROUTINE TO SHIFT TO NEW STACK 
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



SHLD HSAVE 
DI 

POP H 

SSPD PSTAKSAV 
LXI SP,PSTACK 
PUSH H 
EI 

LHLD HSAVE 
CALL WAIT88 
SBCD PACKET+2 
SDED PACKET+4 
LDA lOBYTE 
STA PACKET+8 
RET 



HANG ON TO HL 

NO INTERRUPTS, PLEASE 

GET RETURN 

STASH THE STACK POINTER 

SET STACK TO NEW AREA 

SET UP RETURN 

INTERUPTS OK 

RESTORE HL 

;** VER 1.0.4 

: STORE REGISTERS 



** SUBROUTINE TO PUT MESSAGE-PACKET DATA INTO REGISTERS 



UNPACKIT: 



PUSHIX 
LIXD IPKT 
LDX A, 8 
STA lOBYTE 
LDX A,l 
LDX L,6 
LDX H,7 
POPIX 



STORE INDEX REG 
** VER 1.0.4 
lOBYTE 
(LOC 3) 
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RET 



GTABLE: ;TABLE OF CRITERIA FOR WAITING AFTER A BDOS CALL. ZERO = DON'T WAIT 



DB 1 ; 

DB 1 ; 1 

DB ; 2 

DB 1 ; 3 

DB ; 4 

DB ; 5 

DB 1 ; 6 

DB 1 ; 7 

DB 1 ; 8 

DB 1 ; 9 

DB 1 ;10 

DB 1 ;11 

DB 1 ;12 

DB 1 ;13 

DB 1 ;14 

DB 1 ;15 

DB 1 ;16 

DB 1 ;17 

DB 1 ;18 

DB 1 ;19 

DB 1 ;20 

DB 1 ;21 

DB 1 ;22 

DB 1 ;23 

DB 1 ;24 

DB 1 ;25 

DB ;26 



CP/M MACRO ASSEM 2.0 #005 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



DB 


1 


•27 


DB 


1 


•28 


DB 


1 


•29 


DB 


1 


•30 


DB 


1 


•1 


DB 





•32 


DB 


1 


•33 


DB 


1 


?34 


DB 


1 


?35 


DB 


1 


•36 


DB 


1 


?37 


DB 


1 


?38 


DB 


1 


?39 


DB 


1 


f40 



PAGE 

ORG PSBDOS+IOOH ; PAGE BOUNDARY FOR BIOS JUMPS 

; ** BIOS JUMP TABLE ;FUNCT NO. 



JMP BOOT 
JMP WBOOT 
JMP CONST 




1 
2 
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JMP CONIN ;3 

JMP CONOUT ;4 

JMP LIST ;5 

JMP PUNCH ;6 

JMP READER ;7 

JMP HOME ;8 

JMP SELDSK ;9 

JMP SETTRK ;A 

JMP SETSEC ;B 

JMP SETDMA ;C 

JMP READ ;D 

JMP WRITE ;E 

JMP LISTST ;F 

JMP SECTRAN ;10 

JMP VIDEO ;11 



BOOT : 
XBOOT : 



WBOOT : 



CONST: 



CP/M MACRO ASSEM 2.0 



CONSTl 3 



CONIN: 



CONOUT : 



LIST: 



CALL PACKIT 
MVI A,40H 
STA PACKET 
LXI H, PACKET 
CALL WAIT88 
CALL I88SVC 
RST 4 

CALL PACKIT 
MVI A,41H 
JMP XBOOT 



CALL lOBCHK 
JRNZ CONSTl 
LDA CSFLAG 





STORE CODE IN PACKET 
** VER 1.0.4 

REQUEST 8088 PROCESSING (1.0.3) 
BYE. 



DO IT TO IT 



** VER 1.0.3 
** VER 1.0.3 
** VER 1.0.3 



#006 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



ANI BIOCS 
JMP PCONSl 

CALL PACKIT 
CALL PSEUN 
DB 1,42H 

CALL PACKIT 
CALL PSEUN 
DB r,43H 

CALL PACKIT 
CALL PSEUN 
DB 0,44H 

CALL PACKIT 
CALL PSEUN 
DB a,45H 



;** VER 1.0.3 
;** VER 1.0.3 



;** VER 1.0.4 



;3 

;** VER 1.0.4 



;4 

;** VER 1.0.4 



;5 

;** VER 1.0.4 



PUNCH I 



CALL PACKIT 
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CALL PSEUN 
DB a,46H 

READER: CALL PACKIT 
CALL PSEUN 
DB 1,47H 

HOME: CALL PACKIT 
CALL PSEUN 
DB a,48H 



;** VER 1,0.4 



;7 

;** VER 1.0.4 



;8 

;** VER 1.0.4 



SELDSK: CALL PACKIT 
CALL PSEUN 
DB 1,49H 

SETTRK: MVI B,0 

CALL PACKIT 
CALL PSEUN 
DB 0,4AH 

SETSEC: CALL PACKIT 
CALL PSEUN 
DB 0,4BH 

SETDMA: CALL PACKIT 
CALL PSEUN 
DB 0,4CH 



;9 

;** VER 1.0.4 



;10 

;** VER 1.0.4 



;ll 

;** VER 1.0.4 



;12 

;** VER 1.0.4 



READ: 



WRITE: 



CP/M MACRO ASSEM 2.0 



CALL PACKIT 
CALL PSEUN 
DB 1,4DH 

CALL PACKIT 
CALL PSEUN 
DB 1,4EH 



;13 

;** VER 1.0.4 



;14 

;** VER 1.0.4 



#007 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



LISTST: CALL PACKIT 
CALL PSEUN 
DB 1,4FH 



;15 

;** VER 1.0.4 



SECTRAN: 



VIDEO: 



MVI B,0 
XCHG 
DAD B 
MOV L,M 
MVI H,0 
RET 



MVI D,0 
MVI E , 
CALL PACKIT 
CALL PSEUN 



16 

DOUBLE PRECISION IN BC 
TRANSLATE TABLE ADDRESS TO HL 
TRANSLATE SECTOR ADDRESS 
RETURN SECTOR IN L 

DON'T BOTHER CP/M- 8 6 

17 

FAST VIDEO. NEED SEG 
** VER 1.0.4 
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DB 


1 , 56H 










lOBCHK: 


LDA 


lOBYTE 




VER 


1.0.3 






AN I 


3 


• * * 


VER 


1.0.3 


CRT? 




CPI 


1 


. ** 


VER 


1.0.3 


REALLY? 




RET 




.is* 


VER 


1.0.3 




PGIOB: 


LDA 


lOBYTE 


. ** 


VER 


1.0.3 


GET lOBYTE 




RET 




• -k-k 


VER 


1.0.3 




PSIOR: 


MOV 


A,E 


. ** 


VER 


1.0.3 


STORE lOBYTE 




STA 


lOBYTE 


• ** 


VER 


1.0.3 






RET 




. ** 


VER 


1.0.3 





PSEUN: 



POP H 
MOV A,M 
STA GONOW 
INX H 
MOV A,M 
JMP PSEUX 



ROUTINE TO CARRY PARAMETERS FORWARD INTO 
THE PACKET FOR BIOS CALLS 
STORE WAIT CRITERION 

GET FUNCTION NUMBER 
GO TO PSEUDO-BIOS EXIT 



UNPSTAK: 



SHLD HSAVE 
DI 

POP H 

LSPD PSTAKSAV 

PUSH H 

EI 

LHLD HSAVE 
RET 



; ROUTINE TO RESET TO OLD STACK 

;HANG ON TO HL 

;N0 INTERRUPTS, PLEASE 

;GET RETURN ADDRESS 

; RESTORE USER STACK 

; RESTORE RETURN 

; INTERRUPTS OK 

; RESTORE HL 



HSAVE: 

PSTAKSAV: 

GONOW: 



DW 
DW 
DB 



; SPACE FOR A STACK 
DS 50 
PSTACK: DW 

CP/M MACRO ASSEM 2.0 #008 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



ENDIF 
PAGE 

CP/M MACRO ASSEM 2.0 #009 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



; Z80 INTERFACE LAYER AND PRIMITIVE ROUTINES 

; REWRITTEN FOR DEC RAINBOW 100 
BY CPL 
JULY 1982 







IF 


PRIVATE 


0100 = 


START 


EQU 


OOlOOH 


oLr L — 


IWir FlK 


Eiyu 


U JCr v^n 






ELSE 






START 


EQU 


$ 




INTFPTR 


EQU 


OFFFCH 






ENDIF 




0018 = 


RST3 


EQU 


18H 


0020 = 


RST4 


EQU 


20H 


0030 = 


RST6 


EQU 


30H 


0000 = 


I88INT 


EQU 





0020 = 


INTSTA 


EQU 


20H 


00C3 = 


JUMP 


EQU 


0C3H 


0004 = 


INTBIT 


EQU 


4H 


OOFO = 


FRANCE 


EQU 


OFOH 


0010 = 


DSKFNC 


EQU 


lOH 


0020 = 


OTHFNC 


EQU 


20H 


0040 = 


USRFNC 


EQU 


40H 


0021 = 


Z80BGN 


EQU 


21H 


0022 = 


Z80MVE 


EQU 


22H 


0007 = 


LEGFUN 


EQU 


07H 


OOFF = 


FNCNG 


EQU 


OFFH 


0014 = 


DKWRIT 


EQU 


14H 


OOOA = 


NUMSEC 


EQU 


10 


0200 = 


SECSIZ 


EQU 


512 


0002 = 


STADRL 


EQU 


2 


0003 = 


STADRH 


EQU 


3 


0002 = 


SCADRL 


EQU 


2 


CP/M MACRO 


ASSEM 2.0 


#010 


Z80 INTERFACE 


0003 = 


SCADRH 


EQU 


3 


0004 = 


DSADRL 


EQU 


4 


0005 = 


DSADRH 


EQU 


5 


0006 = 


BYCNTL 


EQU 


6 


0007 = 


BYCNTH 


EQU 


7 
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; STARTING ADDRESS OF CODE 

; LOCATION OF PACKET POINTERS 

; STARTING ADDRESS OF CODE 

; LOCATION OF PACKET POINTERS 



; ADDRESS OF RST 18H (RST 3) VECTOR 
; ADDRESS OF RST 20H (RST 4) VECTOR 
; ADDRESS OF RST 30H (RST 6) VECTOR 

; 8088 INTERRUPT PORT 

; CROSS-CPU INTERRUPT STATUS PORT 

; OPCODE FOR JUMP INSTRUCTION 

; INTERRUPT BIT 

WHEN LOW, SHOWS 8088 INTERRUPT 
FLOP IS INTERRUPTING THE 8088; 
ORIGINALLY SET BY Z80 

; FUNCTION RANGE MASK 

; FOR HIGH NIBBLE OF FUNCTION CODE 

; DISK FUNCTION (HIGH NIBBLE VALUE) 

; OTHER Z80 FUNCTIONS (HIGH NIBBLE VALUE) 

; USER-DEFINED FUNCTIONS 

; ALLOW Z80 TPA EXECUTION 
; MOVE Z80 MEMORY CONTENTS 
LOW VALUE LIMIT - 1 

; FUNCTION CODE MASK 
USE LOW 3 BITS 

; FUNCTION CODE NO GOOD 

; PACKET DISK WRITE FUNCTION CODE 

7 NUMBER OF SECTORS PER TRACK 

; NUMBER OF BYTES PER DISK SECTOR 

; START ADDRESS LSB PACKET OFFSET 
; START ADDRESS MSB PACKET OFFSET 

; SOURCE ADDRESS LSB PACKET OFFSET 
PRIMITIVE ROUTINES - PRIVATE VERSION 

; SOURCE ADDRESS MSB PACKET OFFSET 

; DESTINATION ADDRESS LSB PACKET OFFSET 

; DESTINATION ADDRESS MSB PACKET OFFSET 

; BYTE COUNT ADDRESS LSB PACKET OFFSET 

; BYTE COUNT ADDRESS MSB PACKET OFFSET 
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PAGE 

CP/M MACRO ASSEM 2.0 #011 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 

0100 ORG START 

. **************************************************** 

; NAME: INTSTR 

; FUNCTION: THIS ROUTINE WILL RE-INITIALIZE THE RST 6 

VECTORS, SET UP THE Z80 SERVICE STACK POINTER, 
AND DO A RST 4 . 

; ENTRY: NONE 

; EXIT: NONE 

INTSTR: 

; SET UP RST VECTORS 

0100 211201 LXI H,PKTPRO ; SET UP RST 6 VECTOR 

0103 223100 SHLD RST6+1 

; SET UP Z80 SERVICE STACK POINTER 

LXI SP, STACK 

; INITIALIZE FLAGS 

MVI A, FALSE 

STA DONEFL 

; WAIT UNTIL NEEDED 

OlOE FB EI 

OlOF C32000 JMP RST4 ; GO TO HALT AND WAIT FOR INTERRUPT 

PAGE 

CP/M MACRO ASSEM 2.0 #012 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



0106 313005 



0109 3E00 
OlOB 323105 



************************************************************** 



NAME: PKTPRO 

FUNCTION: THIS ROUTINE IS PASSED A PACKET ADDRESS IN I88PKT. IT USES 
THAT TO GET THE FUNCTION NUMBER WHICH IT USES TO JUMP 
TO THE SPECIFIC FUNCTION HANDLER ROUTINE. 

THIS ROUTINE IS ENTERED VIA AN INTERRUPT FROM THE 8088 AT RST 6 - 
THEREFORE, INTERRUPTS ARE OFF. 

FOR ALL FUNCTIONS EXCEPT Z80START AND SERIAL SUPPORT FROM 8088, 
WE WILL INTERRUPT THE 8088 TO INDICATE WE HAVE FINISHED 
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THE FUNCTION 
; ENTRY: I88PKT = PACKET ADDRESS 
; EXIT: IX = PACKET ADDRESS 
PKTPRQ: 





FUoniX 








« CA\7T? 
; OAVIL 




Dd 


UDDn / UbDn 








U X J. fi CO 


■DTTCU 

FUon 


row 










LIXD 


looPKT 






; GET ADDRESS OF PACKET 


UllD+DDzA 


DB 


UDDH f ZAti 








Ull /+FE JC 


DW 


looPKT 








0119 DBOO 


IN 


I88INT 






; CLEAR 8088 INTERRUPT FLAG 




PUSHIY 








; SAVE REMAINING REGISTERS 


011B+FDE5 


DB 


0FDH,0E5H 








OllD E5 


PUSH 


H 










PUSHIX 








; CHECK FOR ZERO ADDRESS 


011E+DDE5 


DB 


0DDH,0E5H 








0120 El 


POP 


H 






; MOVE IX TO H 


0121 7C 


MOV 


A,H 






; PUT IN ACCUM 


0122 B5 


ORA 


L 






; GET LOW-ORDER, TOO. 


0123 CA7901 


JZ 


TT T Tl V T m 

HIFXIT 






; GO AWAY IF ZERO 


0126 D5 


PUSH 


D 








0127 C5 


PUSH 


B 








U±Zo UIDZUX 


T Y T 


D f f]\l r\£j X 






; PUSH RETURN ADDRESS ONTO STACK 


012B C5 


PUSH 


B 








012C FB 


EI 








; RE-ENABLE INTERRUPTS 




LDX 


A^ FNCCOD 




GET FUNCTION CODE 


012D+DD7E00 


DB 


0DDH,A*8+46H, 


FNCCOD 




0130 FE13 


CPI 


QKRDCOM 








0132 CACFOl 


JZ 


DKREAD 




READ 


FUNCTION 


r 

0135 FE14 


CPI 


QKWTCOM 








U i. o / v^Av^r u X 




U1\VVX\1 1 JCi 




WRITE 


FUNCTION 


:P/M MACRO ASSEM 2.0 


#013 


Z80 INTERFACE 


AND 


PRIMITIVE ROUTINES - PRIVATE VERSION 


013A FE42 


CPI 


USRFNC+2 


7 


BIOS 


42 - 4F, BDOS 90 




JRNC 


HIFNC 


7 


YES 




013C+3033 


DB 


30H,HIFNC-S-1 








013E FE22 


CPI 


Z80MVE 


7 


MOVE 


Z80 MEMORY 


0140 CADB04 


JZ 


ZMOVE 








0143 FE15 


CPI 


QKCMCOM 








0145 CA8601 


JZ 


DKCHECK 


7 


CHECK 


MEDIA FUNCTION 
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0148 FE21 
014A CAC604 



014D CI 
014E+DD3601FF 



0152 FB 

0153 CI 

0154 Dl 

0155 El 

0156+FDEl 



0158+DD22 
015A+FC3C 
015C D300 



015E DB20 
0160 E604 
0162 CA5E01 



0165+DD21 
0167+0000 

0169+DD22 
016B+FC3C 

016D Fl 

016E+DDE1 

0170 C9 



ERROR: 



PKTRET: 



PKTRl: 



CPI 
JZ 



POP 

MVIX 

DB 



POP 

POPIX 

DB 



Z80BGN 
Z START 



B 



ALLOW Z80 TPA EXECUTION 



; EMPTY STACK OF RETURN ADR 
FNCNG, STATUS ; SET ERROR STATUS 

ODDH ,36U, STATUS , FNCNG 



EI 




POP 




POP 


D 


POP 


fj 


POPIY 




DB 


0FDH,0E1H 


SIXD 


Z80PKT 


DB 


0DDH,22H 


DW 


Z80PKT 


OUT 


I88INT 


IN 


INTSTA 


AN I 


INTBIT 


JZ 


PKTRl 


LXIX 





DB 


0DDH,21H 


DW 





SIXD 


Z80PKT 


DB 


0DDH,22H 


DW 


Z80PKT 



RET 

; PROCESS FUNCTION CODES 
HIFNC: 



RE-ENABLE INTERRUPTS IN CASE 

THEY WERE OFF (DISK I/O) 
RESTORE REGISTERS 



SET UP RETURN PACKET POINTER 



AND PASS IT 



LOOP UNTIL 8088 CLEARS THE 
INTERRUPT 



;ZERO ADDRESS (8088 HAS IT NOW) 



PSW 

0DDH,0E1H 



; AND RETURN 
42H TO 4FH, OR 90H 



0171 CI 


POP 


B 


; FIX STACK 


0172 3EFF 


MVI 


A, TRUE 


; SET DONE FLAG 


CP/M MACRO ASSEM 2.0 


#014 


Z80 INTERFACE 


AND PRIMITIVE ROUTINES - PRIVATE VERSION 


0174 323105 


STA 


DONEFL 




0177 CI 


POP 


B 


; RESTORE REGISTERS 


0178 Dl 


POP 


D 


EXCEPT HL,AF, AND IX 


0179 El HIFXIT: 


POP 


H 






POPIY 






017A+FDE1 


DB 


0FDH,0E1H 
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017C Fl 

017D+DD22 
017F+8401 

0181+DDEl 

0183 C9 

0184 0000 



IPKT 



CP/M MACRO ASSEM 2.0 



POP 
SIXD 
DB 
DW 

POPIX 
DB 
RET 
DW 

PAGE 
#015 



; RESTORE 

; STASH PACKET ADDRESS 



PSW 
IPKT 

0DDH,22H 
IPKT 

ODDH^OEIH 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



IF SHARE 
NAME: I88SVC 

FUNCTION: THIS ROUTINE REQUESTS SERVICE FROM THE 8088 FOR A 
Z80-RESIDENT ROUTINE. 

ENTRY: HL = PACKET ADDRESS 

EXIT: HL = PACKET ADDRESS 



I88SVC: 



DI 

SHLD 

MVI 
STA 

OUT 



INTCLR: 



IN 
AN I 
JZ 

PUSH 
LXI 
SHLD 
POP 

EI 
RET 



Z80PKT 

A, FALSE 
DONEFL 

I88INT 



INTSTA 
INTBIT 
INTCLR 
H 

H,0 

Z80PKT 
H 



WRITE ADDRESS OF PACKET 
CLEAR DONE FLAG 

SET 8088 INTERRUPT FLAG 



LOOP UNTIL 8088 TURNS OFF 
INTERRUPT FLAG 



ZERO THE PACKET ADDRESS 
RE-ENABLE INTERRUPTS 



ROUTINE TO WAIT FOR THE DONE FLAG 



WAIT88: 



DI 
LDA 
CPI 
JRZ 



DONEFL 

TRUE 

WAITDN 



; JUMP IF DONE 
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CALL 23H ; WAIT UNTIL INTERRUPTED 

JR WAITS 8 ; "JUMP TO MAKE SURE DONE FLAG IS TRUE 

WAITDN: EI 
RET 

PAGE 

ENDIF 

. ********************************************************* 
; NAME: DSKPRO 

CP/M MACRO ASSEM 2.0 #016 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



FUNCTION: THIS ROUTINE IS THE ENTRY POINT FOR ALL OF THE 
DISK I/O FUNCTIONS. IT WILL DETERMINE WHICH 
PRIMITIVE TO CALL, AND PASS CONTROL TO THAT PRIMITIVE. 

ENTRY: IX = PACKET ADDRESS 

EXIT: IX = PACKET ADDRESS 

**************************************************************** 



PACKET OFFSETS 



0000 




FNCCOD 


EQU 


; 


FUNCTION CODE 


0001 




STATUS 


EQU 


1 ; 


RETURNED STATUS 


0002 




DRIVEN 


EQU 


2 


DRIVE NUMBER 


0002 




SECTN 


EQU 


2 


SECTOR NUMBER 


0003 




TRACKN 


EQU 


3 


• TRACK NUMBER 


0004 




DMALOW 


EQU 


4 


• DMA ADDRESS (LSB) 


0005 




DMAHI 


EQU 


5 


• DMA ADDRESS (MSB) 


0006 




NSECT 


EQU 


6 


• NUMBER OF SECTORS 


0060 




DRVNUM 


EQU 


60H 


• MASK FOR DRIVE NUMBER 


OOIF 




SECNUM 


EQU 


IFH 


• MASK FOR SECTOR NUMBER 






; FUNCTION CODES 




0013 




QKRDCOM 


EQU 


13H 


? READ FUNCTION CODE 


0014 




QKWTCOM 


EQU 


14H 


; WRITE FUNCTION CODE 


0015 




QKCMCOM 


EQU 


15H 


} CHECK MEDIA FUNCTION CODE 






; FDC COMMAND 


FLAGS 




0008 




QMHLD 


EQU 


8 


? HEAD LOAD FLAG 


0004 




QMVERF 


EQU 


4 


; VERIFY FLAG 


0004 




QMEFLG 


EQU 


4 


; HEAD LOAD FLAG FOR READ/WRITE 


0008 




QMSSEL 


EQU 


8 


; SIDE SELECT FLAG 


0002 




QMSCOM 


EQU 


2 


; SIDE COMPARE FLAG 


0010 




QMUPDT 


EQU 


lOH 


? UPDATE TRACK REG FLAG 



; FDC STEP RATE 
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0000 = 



0008 
OOlC 
0018 
0010 
0048 
0068 
0080 
OOAO 
OOFO 
OOCO 
OODO 



QKRATE EQU 
FDC COMMANDS 



QCREST EQU 
QCSEEK EQU 
QCSEEKN EQU 
QCSEKHO EQU 
QCSTEPIN EQU 
QCSTEPOT EQU 
QCREADS EQU 
QCWRTS EQU 
QCWRTRK EQU 
QCRDADR EQU 
QCTERM 



; 6 MS RATE 



SEEK 
SEEK 
STEP 



CP/M MACRO ASSEM 2.0 



EQU 
#017 



0+QMHLD+QKRATE 
lOH+QMHLD+QKRATE+QMVERF 
lOH+QMHLD-f QKRATE 
lOH+QKRATE 
40H+QMHLD+QKRATE 
60H+QMHLD+QKRATE 
80H 
OAOH 
OFOH 
OCOH 
ODOH 

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



RESTORE (RECAL) 
SEEK (WITH VERIFY) 
(NO VERIFY) 
- NO HEAD LOAD 
IN 

STEP OUT 
READ SECTOR 
WRITE SECTOR 
WRITE TRACK 
READ ADDRESS 
TERMINATE COMMAND 



OOCO 
0020 
0010 
0008 
0018 
0004 
0003 



DISK CONTROLLER STATUS - TYPE 1 COMMANDS 



u u o u 




QMNRDY 


EQU 


80H 


• NOT READY 


0040 




QMWPROT 


EQU 


40H 


• WRITE PROTECTED 


0020 




QMHLT 


EQU 


20H 


• HEAD LOADED 


0010 




QMSKERR 


EQU 


lOH 


• SEEK ERROR 


0008 




QMCRC 


EQU 


8 


' CRC ERROR 


0004 




QMTZERO 


EQU 


4 


• TRACK ZERO 


0002 




QMINDEX 


EQU 


2 


• INDEX 


0001 




QMBUSY 


EQU 


1 


• BUSY 






; DISK CONTROLLER STATUS 


~ TYPE 2 AND 3 COMMANDS 


0020 




QMWRFLT 


EQU 


20H 


WRITE FAULT 


0010 




QMRNF 


EQU 


lOH 


' RECORD NOT FOUND 


0004 




QMLDATA 


EQU 


4 


LOST DATA 


0002 




QMDRQ 


EQU 


2 


► DATA REQUEST 


0020 




QMDELDM 


EQU 


20H 


• DELETED DATA MARK 






; ERROR 


MASKS 


FOR OPERATIONS 


0091 




QMREST 


EQU 


QMNRDY+QMSKERR+QMBUSY ; RESTORE 


0099 




QMSEEK 


EQU 


QMNRDY+QMSKERR+QMCRC+QMBUSY ; SEEK 


OOBD 




QMREAD 


EQU 


QMNRDY+QMRNF+QMCRC+QMLDATA+QMDELDM+QMBUSY ; READ SECTOR 


OOFD 




QMWRITE 


EQU 


QMNRDY+QMRNF+QMCRC+QMLDATA+QMWRFLT+QMWPROT+QMBUSY ; WRITE SECTOR 


009D 




QMRDADR 


EQU 


QMNRDY+QMRNF+QMCRC+QMLDATA+QMBUSY ; READ ADDRESS 



GENERAL STATUS PORT (QPSTAT) EQUATES 



QMPRECMP EQU OCOH 

QMPSIDE EQU 20H 

QMONl EQU lOH 

QMONO EQU 8 
QMON EQU 

QMTG42 EQU 4 

QMDRNR EQU 3 



PRECOMPENSATION BITS 
SIDE SIGNAL 
MOTOR 1 ON 
MOTOR ON 



QMONO+QMONl 



TG 42 SIGNAL 
DRIVE NUMBER 
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0004 = 
9C40 = 
003D = 
0040 = 
004F = 
OOOA = 
0002 = 



0040 
0060 



MISCELLANEOUS EQUATES 



QKDRETRY EQU 


4 


QKDRCNT EQU 


40000 


QKPCTRK EQU 


61 


QKPCBIT EQU 


40H 


QKMXTRK EQU 


79 


QKMXSECT EQU 


10 


QKROBIN EQU 


2 



DISK OPERATION RETRIES 

COUNT FOR DISK READY TIMING {.5 SEC) 

PRECOMP REQUIRED STARTING AT THIS TRACK 

PRECOMP BIT TO USE AFTER TRACK 60 

MAX TRACK NUMBER ON RX50 

MAX PHYSICAL SECTOR NO. ON RAINBOW DISKS 

STATUS RETURNED FOR ROBIN MEDIA ON CHECK FUNCTION 



EQUATES FOR PHYSICAL DISK CONTROL 



QPSTAT 
QPCOMD 



CP/M MACRO ASSEM 2,0 



EQU 40H ; GENERAL DISK CONTROL/STATUS REG. 

EQU 60H ; FDC COMMAND/STATUS REG. 

#018 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



0061 




QPTRKRG 


EQU 


61H 


FDC TRACK REG. 


0062 




QPSECRG 


EQU 


62H 


FDC SECTOR REG. 


0063 




QPDATA 


EQU 


63H 


FDC DATA REG. 






; EQUATES FOR 


PRIVATE RAM 


I/O ROUTINE 


0040 




RDORWR 


EQU 


0040H 


ADDRESS OF ROUTINE 


0046 




INOROUT 


EQU 


0046H 


ADDRESS OF INI OR OUTI INSTR. 


004A 




UDELAY 


EQU 


004AH 


DELAY IN 0.500 MSEC INCREMENTS, C = COUNT 


A2ED 




INII 


EQU 


0A2EDH ; 


INI INSTRUCTION 


A3ED 




OUTII 


EQU 


0A3EDH ; 


OUTI INSTRUCTION 


63DB 




ININ 


EQU 


QPDATA SHL 8 + IN ; IN QPDATA INSTR. 








PAGE 






CP/M MACRO 


ASSEM 2.0 


#019 


Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



DKCHECK - CHECK MEDIA TYPE 

FUNCTION: ATTEMPTS TO DETERMINE WHETHER A RAINBOW OR ROBIN DISKETTE 

IS MOUNTED IN THE SPECIFIED DRIVE. 

INVOKED BY THE BIOS IN THE 8088 WHENEVER DRIVE IS 
SELECTED FOR THE FIRST TIME AFTER A DISK SYSTEM RESET - 
MOST COMMONLY AFTER A '^C AT THE CCP LEVEL. 

RULES: NO ERRORS ARE RETURNED. A RESTORE OPERTION IS DONE, 

FOLLOWED BY A READ OF SECTOR 10. IF A RECORD NOT FOUND 
STATUS RESULTS, ROBIN MEDIA IS ASSUMED. ON A SUCCESSFUL 
READ OF PHYSICAL SECTOR 10 OR IF ANY OTHER ERROR OCCURS 
(SUCH AS NOT READY) , RAINBOW MEDIA IS ASSUMED. 

ENTRY: PACKET ADDRESS IN IX. 

EXIT: MEDIA TYPE IN THE STATUS FIELD OF THE PACKET: 

IF RAINBOW, 2 IF ROBIN. 
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DKCHECR: 



0186 3EFF 
0188 CDB004 
018B CDC603 

018E+3805 
0190 CD3503 

0193+2803 

0195 AF 

0196+1823 

0198 AF 

0199+DD7703 
019C CDB004 

019F+DD7E02 
01A2 E660 
01A4 47 
01A5 3E0A 
01A7 B7 

01A8+DD7702 
OlAB 21DB63 
OlAE CD6502 

OlBl+2808 
01B3 FEIO 
01B5 3E00 

01B7+2002 
01B9 3E02 



DKCHECKl: 



DKCHECK2: 



DB 



DKCHECK3: 



OIBB 47 
CP/M MACRO ASSEM 2.0 

OIBC 3AC204 
OIBF 5F 
OICO 1600 
01C2 21F43C 
01C5 19 
01C6 70 
01C7 78 
01C8 32C304 

01CB+DD7701 
OICE C9 

CP/M MACRO ASSEM 2.0 



MVI 

CALL 

CALL 

JRC 

DB 

CALL 
JRZ 
DB 
L: 
XRA 
JR 
DB 
1 1 
XRA 
STX 
DB 

CALL 
LDX 

ODDH,A* 
AN I 
MOV 
MVI 
ORA 
STX 
DB 
LXI 
CALL 
JRZ 
DB 
CPI 
MVI 
JRNZ 
DB 
MVI 
B: 
MOV 
#020 

LDA 

MOV 

MVI 

LXI 

DAD 

MOV 

MOV 

STA 

STX 

DB 

RET 

PAGE 

#021 



A,OFFH ; 
SETRAK ; 
DPSELDR 

DKCHECKl ; 

38H,DKCHECK1-S-1 

DPRECAL 

DKCHECK2 ; 
28H,DKCHECK2-$-l 



SET "CURRENT TRACK" TO FF TO INDICATE 
FIRST ACCESS AFTER RESET 

DRIVE IS NOT READY 



FALL THROUGH = ERROR ON RESTORE 



ERROR - ASSUME RAINBOW MEDIA 



DKCHECK3 

18H,DKCHECK3-$-l 
A 

A^TRACKN 

0DDH,70H+A,TRACKN 
SETRAK 

A, DRIVEN 
3+46H, DRIVEN 

DRVNUM 

B, A 

A,QKMXSECT 
A 

A,SECTN 

0DDH,70H+A,SECTN 

H,ININ 

DPREADZ 

DKCHECK3 

28H,DKCHECK3-$-l 
QMRNF 

A, 

DKCHECK3 

20H,DKCHECK3-$-l 
A^QKROBIN 

B, A 

Z80 INTERFACE AND 

BCURDRV 
E,A 
D,0 
H,TFORMAT 
D 

M,B 
A,B 

B FORMAT 
A, STATUS 

0DDH,70H+A, STATUS 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



TRACK INTO TABLE 

SETUP PACKET FOR THE READ ROUTINE 



NOW TRY TO RAED SECTOR 10 

NO DATA TRANSFER INTO MEMORY 
AND NO ERROR RECOVERY 
GOOD READ 

IS RECORD NOT FOUND THE ONLY ERROR? 
NO - SET RAINBOW MEDIA 
YES - ROBIN MEDIA 

PRIMITIVE ROUTINES - PRIVATE VERSION 

PUT MEDIA TYPE INTO FORMAT TABLE, 
CURRENT FORMAT INDICATOR AND 
INTO THE PACKET 
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OICF CD3C02 
01D2 D8 
01D3 CAEOOl 
01D6 CD5B03 

01D9+2021 
OlDB DB61 
OIDD CDB004 

OlEO 3E13 

01E2+DDBE00 

01E5+2005 
01E7 CD5F02 

OlEA+1803 

OlEC CD7B02 

OlEF CD0702 

01F2+30EC 

01F4+DD7701 
01F7 E601 
01F9 C8 

OlFA+1805 



DKREAD/DKWRITE 



READ OR WRITE SECTOR (S) 



FUNCTION: READS OR WRITES 1 TO 10 SECTORS ON 
SPECIFIED DRIVE AND TRACK. 



DKREAD: 
DKWRITE: 



DKRW20: 



DKRW30: 



DKRW40: 



CALL 

RC 

JZ 

CALL 
JRNZ 
DB 
IN 

CALL 

MVI 

CMPX 

DB 

JRNZ 
DB 

CALL 

JR 

DB 

CALL 

CALL 

JRNC 

DB 

STX 

DB 

AN I 

RZ 

JR 

DB 



DKRWSET ; 

DKRW20 ; 
DPSEEK ; 
DKRW90 

20H,DKRW90-$-l 
QPTRKRG ; 
SETRAK 

A.QKRDCOM ; 
FNCCOD 

0DDH,0BEH,FNCCOD 
DKRW30 

20H,DKRW30-$-l 
DPREAD ; 
DKRW40 

18H,DKRW40~$-1 
DPWRITE ; 



SET UP FOR READ/WRITE 

EXIT - DRIVE NOT READY 
NO SEEK NEEDED 
PERFORM SEEK 
SEEK ERROR 

SET NEW TRACK IN TABLE 



READ FUNCTION? 

NO - WRITE 

YES - READ SECTOR 

NO - WRITE SECTOR 



CHECK FOR MULT. SECTOR OPERATION 
LOOP UNTIL ALL SECTORS DONE 



STORE STATUS 



NEXTSEC 
DKRW20 

30H,DKRW20-$-l 
A, STATUS 
ODDH, 7 OH+A, STATUS 

QMBUSY ; SEEK ERROR INDICATED? 

; NO - ALL DONE 
DKRW95 ; YES - RESET TRACK TABLE RNTRY 

18H,DKRW95-$-l 



OlFC F601 

01FE+DD7701 

0201 3EFF 
0203 CDB004 
0206 C9 



; SEEK ERROR 
DKRW9C: 

ORI 
STX 
DB 

DKRW95l: 

MVI 

CALL 

RET 



QMBUSY 7 MARK AS SEEK ERROR 

A, STATUS ; STORE STATUS 

0DDH,70H+A, STATUS 



A,0FFH 
SETRAK 



; FORCE RECAL ON NEXT R/W 



SUBROUTINE TO CHECK FOR MULTIPLE SECTOR OPERATION 
DECREMENTS SECTOR COUNT AND INCREMENTS SECTOR NUMBER. 
SECTOR INTERLEAVE IS USED TO READ/WRITE SECTORS IN 
LOGICAL ORDER. 
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; ENTRY: STATUS OF READ/WRITE IS IN 'A' 

CP/M MACRO ASSEm'2.0 #022 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 

; EXIT: CARRY IS SET IF NO FURTHER READ/WRITE OPERATIONS 
; ARE NECESSARY (COUNT EXHAUSTED OR ERROR OCCURRED) 
; PACKET COUNT AND SECTOR NUMBER ARE UPDATED. 



NEXTSEC: 



0207 FEOl 


CPI 


1 


STATUS OK? 


n o n Q Q I? 


LML 




(REVERSE SENSE OF CARRY) 


02 OA D8 


RC 




' EXIT " ERROR OCCURRED 




DCRX 


NSECT 


DECREMENT SECTOR COUNT 


UzUd+DDJoOd 


DB 


0DDH,035H,NSECT 




020E 37 


STC 


; SET CARRY IN CASE COUNT = 


020F C8 


RZ 


; EXIT ON ZERO COUNT 




; INCREMENT DMA 


ADDRESS IN PACKET 




LDX 


A.DMAHI ; TAKE CARE OF POSSIBLE CARRY 


0210+DD7E05 


DB 


0DDH,A*8+46H,DMAHI 


0213 C602 


AD I 


2 






STX 


A,DMAHI 




0215+DD7705 


DB 


0DDH,70H+A,DMAHI 






LDX 


A,SECTN ; GET SECTOR NUMBER 


U Zlo+DD /jbiU z 


UD 


0DDH,A*8+46H,SECTN 


021B C601 


ADI 


1 ; NEXT SECTOR 


021D 47 


MOV 


B,A 




Uzlb EolF 


AN I 


SECNUM 


• ISOLATE IT 


0220 FEOA 


CPI 


QKMXSECT 


• OVER THE LIMIT ON THE TRACK? 




JRC 


NEXTSC15 


? NO 


0222+3813 


DB 


38H,NEXTSC15-$-l 






JRNZ 


NEXTSCIO ; DEFINITELY OVER THE LIMIT. 


0224+2006 


DB 


20H,NEXTSC10-$-l 




0226 3AC304 


LDA 


B FORMAT 


AT SECTOR 10. OVER THE LIMIT 


0229 A7 


ANA 


A ; ROBIN DISK; 




JRZ 


NEXTSC20 




022A+280C 


DB 


28H,NEXTSC20-$-l 






NEXTSCIO: 








LDX 


A,SECTN 




022C+DD7E02 


DB 


0DDH,A*8+46H,SECTN 


022F E6E0 


AN I 


NOT SECNUM 




0231 F601 


ORI 


1 






STX 


A,SECTN ; STORE IT IN PACKET 


0233+DD7702 


DB 


0DDH,70H+A,SECTN 




0236 C9 


RET 







0237 3F NEXTSC15: CMC 

NEXTSC20: 

STX B, SECNUM 

0238+DD701F DB ODDH, 70H+B, SECNUM 

023B C9 RET 



PAGE 

CP/M MACRO ASSEM 2.0 #023 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 
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DKRWSET - SET UP FOR READ OR WRITE 

FUNCTION: SELECTS DRIVE AND CHECKS READY STATUS. HOMES 
DRIVE IF IT HAS NOT BEEN ACCESSED PREVIOUSLY. COMPARES 
DESIRED TRACK WITH CURRENT TRACK. 

ENTRY: IX = PACKET ADDRESS 

EXIT: HL = ADDRESS OF TRACK TABLE ENTRY FOR DRIVE 

Z FLAG IS SET IF CURRENT TRACK = DESIRED TRACK 
CARRY FLAG IS SET IF DRIVE IS NOT READY 



DKRWSET: 



023C CDC603 




CALL 


DPSELDR 




SELECT DRIVE AND CHECK READY STATUS 


023F D8 




RC 






EXIT - NOT READY 


0240 3AC504 




LDA 


BTRACK 




GET CURRENT TRACK 


0243 FEFF 




CPI 
JRNZ 


OFFH 
DKRWSIO 




' FIRST ACCESS? 
• NO 


0245+2008 




DB 


20H,DKRWS10-$ 


-1 




0247 CD3503 




CALL 


DPRECAL 




• HOME DRIVE 


024A CO 




RNZ 






• EXIT ON HOME ERROR 


024B AF 




XRA 


A 




? SET TRACK ZERO IN TABLE 


024C CDB004 


DKRWSIO 


CALL 


SETRAK 






024F 3AC304 




LDA 


BFORMAT 




} COMPARE DESIRED TRACK WITH 


0252 A7 




ANA 
LDX 


A 

A,TRACKN 




; CURRENT TRACK. SINCE CURRENT 

? TRACK IS ALWAYS KEPT IN TRUE FORM, 


0253+DD7E03 




DB 


0DDH,A*8+46H, 


TRACKN 






JRZ 


DKRWS20 


MUST DOUBLE DESIRED TRACK IF 


0256+2801 




DB 


28H,DKRWS20-$ 


-1 




0258 87 


DKRWS2a 


ADD 


A 




; ROBIN MEDIA 


0259 47 




MOV 


B,A 






025A 3AC504 




LDA 


BTRACK 






025D A8 




XRA 


B 




? COMPARE WITH CURRENT TRACK (RESET CARRY) 


025E C9 




RET 









PAGE 

CP/M MACRO ASSEM 2.0 #024 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



DPREAD - READ A SECTOR 

FUNCTION: READS ONE SECTOR FROM DISK. RETRIES WHEN ERROR IS 
ENCOUNTERED. 

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET 
EXIT: A = FDC STATUS 



DPREAD : 
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UFKWrjA 


a / ID CT'TT'D'KTO rnr\ f^T^T T X?T> r\X? T^'D"D17AF\\ 

; (KejIUKINIo lU LALLtiK Ur UFKciAD) 




JjJrrvJjriiJA 








n 9 ^ 9 9 1 pna 9 




T V T 


W T M T T 
£1 f X IM ± JL 


• QPT* riP TMT TMQTP 
f OCil [J XT Lv* L JLIMolK* 












UZOD ZZftOUU 




QHT r» 
onLilJ 


TiyjnpnnT' 

X JNUKUU 1 








LDX 


A" m T3 A vvr 

A , TRALKN 


; bEi IRALK FUR bELTUR READ OR 


K) ZOO+UU / tiij O 




Do 




Ti"D A r^VKX 

i KALKJN 


U Z DO UO ± 




UUi 


yFiKKKvj 


; WiliL DlrrbK rKUM Frixb. IKALK 


n9cn icon 

UZDU l£iOU 




MVI 


E , QLREADo 


; SEND COMMAND TO FDC 


U Z Or v^U / y U 4 




CALL 


DPKWbET 








PAT T 


pnOPWP 

JaJJWxxW x\ 


• TPAMcippp naTA 

f X IxrilN O r HjXx Ui\XJt\ 


0275 FB 




EI 




; REENABLE 


0276 DB60 




IN 


QPCOMD 


; GET STATUS 


0278 E6BD 




AN I 


QMREAD 


; MASK ERRORS 


027A C9 




RET 




; RETURN WITH STATUS 



DPWRITE - WRITE A SECTOR 



FUNCTION: WRITES ONE SECTOR TO DISK. RETRIES WHEN ERROR IS 
ENCOUNTERED. 

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET 



027B CDDB02 



EXIT: A = FDC STATUS 



DPWRITE: 



CALL 



DPRWEX 



; (RETURNS TO CALLER OF DPWRITE) 



DPWRTX: 

027E 21EDA3 LXI 

0281 224600 SHLD 

LDX 

0284+DD7E03 DB 

0287 D361 OUT 

0289 CDAD02 ' CALL 

028C D5 PUSH 

028D lEAO MVI 

028F CD7904 CALL 

0292 CD4000 CALL 

CP/M MACRO ASSEM 2.0 #025 



H.OUTII 
INOROUT 
A,TRACKN 



SET UP OUTI INSTR. 



SET TRACK FOR SECTOR READ OR WRITE 



0DDH,A*8+46H,TRACKN 
QPTRKRG 



WILL DIFFER FROM PHYS . TRACK IF ROBIN 



GSODRV 
D 

E , QCWRTS 
DPRWSET 

RDORWR ; TRANSFER DATA 

Z80 INTERFACE AND PRIMITIVE ROUTINES 



; GET "NOT READY" STATUS OF OTHER DRIVE 
; SAVE FOR COMPARISON AFTER WRITE OF SECTOR 
; SEND THIS COMMAND TO FDC 



PRIVATE VERSION 



0295 


FB 


EI 




0296 


DB60 


IN 


QPCOMD 


0298 


E6FD 


AN I 


QMWRITE 


029A 


47 


MOV 


B,A 


029B 


0E03 


MVI 


C,3 


029D 


CD4A00 


CALL 


UDELAY 


02A0 


CDAD0 2 


CALL 


GSODRV 


02A3 


Dl 


POP 


D 


02A4 


BA 


CMP 


D 



REENABLE 
GET STATUS 
MASK ERRORS 

SAVE RESULT OF WRITE OPERATION 
1.5 MSEC DELAY 

FOR CONTROLLER TO FINISH WRT CLEANUP 
GET "NOT READY" STATUS OF OTHER DRIVE 
RESTORE OLD STATUS OF OTHER DRIVE 
COMPARE WITH OLD STATUS 
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02A5 


^3E00 




MVI 


A,0 


1 


ASSUME DOOR OF OTHER DRIVE WAS NOT TOUCHED 








JRZ 


DPWRT3 




IT WAS 'NT 


02A7+2802 




DB 


28H,DPWRT3-$-l 






02A9 


3E08 




MVI 


A,QMCRC 


) 


IT WAS - REPORT AS CRC ERROR 


02AB 


BO 


DPWRTa: 


OKA 


B 


i 


GET STATUS RESULT OF WRITE OPERATION 


02AC 


C9 




RET 




I 


RETURN WITH STATUS 






• 
• 


GET " 


NOT READY" STATUS 


OF OTHER DRIVE 






; 

GSODRY: 










02AD 


3AC204 




LDA 


BCURDRV 




GET CURRENT DRIVE SELECTED 


02B0 


EEOl 




XRI 


1 




• SWITCH TO OTHER DRIVE 


02B2 


D340 




OUT 


QPSTAT 




SELECT OTHER DRIVE 


02B4 


CDC202 




CALL 


DELAY7 




DELAY 7 USECS 


02B7 


DB60 




IN 


QPCOMD 




GET STATUS OF OTHER DRIVE 


02B9 


E680 




AN I 


QMNRDY 




THIS BIT TELLS US IF DOOR WAS OPENED OR CLOSED 


02BB 


57 




MOV 


D,A 




SAVE FOR COMPARISON AFTER WRITE OF SECTOR 


02BC 


3AC404 




LDA 


TCURDRV 




• CURRENT DRIVE WITH PRE COMP BIT SET IF NECESSARY 


02BF 


D340 




OUT 


QPSTAT 




• RESELECT CURRENT DRIVE 


02C1 


7A 




MOV 


A,D 




• RESTORE FOR COMPARISON AFTER WRITE OF SECTOR 


02C2 


C9 


DELAY7: 


RET 






• PROVIDES ~ 7 USEC DELAY 



DPRDADR - READ ADDRESS 

FUNCTION: READS ADDRESS OF A DISK SECTOR 
(USED TO DETERMINE TRACK NUMBER) 



ENTRY: N/A 







; EXIT: TRACK 


NUMBER IS IN SECTOR 


REGISTER OF FDC 






(NO DATA IS 


TRANSFERRED) 










DPRDADR: 








02C3 


CDDB02 


CALL 


DPRWEX 


r 


(RETURNS TO CALLER OF DPRDADR) 






DPRDADRX: 








02C6 


21DB63 


LXI 


H.ININ 


} 


SET UP IN QPDATA INSTR. 


02C9 


224600 


SHLD 


INOROUT 






02CC 


lECO 


MVI 


E,QCRDADR 


7 


SEND COMMAND TO FDC 


02CE 


CD7904 


CALL 


DPRWSET 






02D1 


CD4000 


CALL 


RDORWR 


7 


TRANSFER DATA 


02D4 


FB 


EI 




r 


REENABLE 


02D5 


DB60 


IN 


QPCOMD 


r 


GET STATUS 


02D7 


E69D 


AN I 


QMRDADR 


f 


MASK ERRORS 


02D9 


37 


STC 






INHIBIT ADVANCED ERROR RECOVERY 


CP/M MACRO ASSEM 2.0 #026 


Z80 INTERFACE 


AND 


PRIMITIVE ROUTINES - PRIVATE VERSION 


02DA 


C9 


RET 




r 


RETURN WITH STATUS 



DPRWEX - EXECUTES A READ OR WRITE OPERATION 
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FUNCTION: EXECUTES A READ OR WRITE OPERATION AND PERFORMS 
ERROR RECOVERY AS NECESSARY. 

ENTRY: ADDRESS OF PHYSICAL I/O ROUTINE IS ON TOP OF STACK 

EXIT: A = FDC STATUS 



DPRWEX: 



02DB El 


POP 


H 


; GET I/O ROUTINE ADDRESS 


02DC E5 


PUSH 


H 


; SAVE FOR ERROR RECOVERY 


02DD CD3403 


CALL 


DPRWE90 


; EXECUTE THE ROUTINE 


02E0 El 


POP 


H 


7 RECOVER I/O ROUTINE ADDRESS 


02E1 C8 


RZ 




; EXIT IF NO ERRORS 




; ERROR RECOVERY PROCESSING 




02E2 5F 


MOV 


E,A 


; SAVE ERROR CODES 




JRC 


DPRWEIO 


; JUST A FEW RETRIES IF CARRY 


G2E3+3804 


DB 


38H,DPRWElO-$-l 


02E5 E618 


ANI 


QMCRC+QMRNF 


; CRC ERROR OR RNF? 




JRNZ 


DPRWE20 


; YES - PROCESS IT 


02E7+2014 


DB 


20H,DPRWE20-$-l 



REPEAT OPERATION UNTIL RETRY COUNT IS EXHAUSTED 



DPRWEIO: 



02E9 


1604 


MVI 


D,QKDRETRY 




/ 


INITIALIZE RETRY COUNTER 






DPRWE15: 










02EB 


D5 


PUSH 


D 




/ 


STASH RETRY COUNT AND ORIGINAL ERROR 


02EC 


3ED0 


MVI 


A,QCTERM 








02EE 


D360 


OUT 


QPCOMD 




7 


TERMINATE COMMAND 


02F0 


E5 


PUSH 


H 






PRESERVE I/O ROUTINE ADDRESS 


02F1 


CD3403 


CALL 


DPRWE90 




7 


EXECUTE IT 


02F4 


El 


POP 


H 




f 


GET BACK STUFF THAT WAS STASHED 


02F5 


Dl 


POP 


D 








02F6 


C8 


RZ 






/ 


EXIT IF SUCCESSFUL 


02F7 


15 


DCR 


D 




7 


ANY MORE RETRIES LEFT? 






JRNZ 


DPRWE15 




7 


TRY AGAIN 


02F8+20F1 


DB 


20H,DPRWE15- 


■$-1 






02FA 


7B 


MOV 


A,E 




7 


GET FDC STATUS 


02FB 


A7 


ANA 


A 




7 


SET TO NON-0 TO INDICATE ERROR 


02FC 


C9 


RET 














; REPEAT OPERATION, THEN PERFORM 


ADVANCED RECOVERY 






DPRWE20: 










02FD 


CDE902 


CALL 


DPRWEIO 




7 


REPEAT OPERATION 


0300 


C8 


RZ 






7 


EXIT IF SUCCESSFULL 






; RESTORE DRIVE 


, SEEK AGAIN 


AND 


DO OPERATION ONE MORE 


0301 


D5 


PUSH 


D 




7 


SAVE I/O ROTINA ADDRESS, RETRY COUNT 


0302 


E5 


PUSH 


H 




7 


ORIGINAL ERROR STATUS 


0303 


CD3503 


CALL 


DPRECAL 




7 


RESTORE 



CP/M MACRO ASSEM 2.0 #027 Z80 INTERFCE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



JRNZ DPRWE80 ; HARD RESTORE ERROR 

0306+2027 DB 20H,DPRWE80-$-l 

0308 CD6003 CALL DPSEEKl ; SEEK TO TRACK 
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JRNZ 


DPRWE80 


1 


HARD SEEK ERROR 


030B+2022 




DB 


20H,DPRWE80-$-l 






030D El 




POP 


H 


? 


GET ALL THAT STUFF BACK 


030E Dl 




POP 


D 






030F CDE902 




CALL 


DPRWEIO 




AND DO SOME MORE RETRIES 


0312 C8 




RZ 




/ 


SUCCESS 






LDX 


D,TRACKN 


t 


NOW WE TRY TO SNEAK UP ON IT FROM 


0313+DD5603 




DB 


0DDH,D*8+46H,TRACKN 


0316 E5 




PUSH 


H 


r 


THE OTHER SIDE: SEEK TO TRACK 79 


0317 D5 




PUSH 


D 




AND THEN BACK TO THE TARGET TRACK. 






MVIX 


QKMXTRK,TRACKN 


r 


TO DO THIS, WE MUST SVE TARGET TRACK 


0318+DD36034F 




DB 


ODDH , 3 6H , TRACKN , QKMXTRK 


031C CD7303 




CALL 


DPSEEKX 


? 


AND SUBSTITUTE 79 IN PACKET 


031F Dl 




POP 


D 


? 


PFTT RAPT? rnRPPPT TPATK" TNFTO VACVFT 






STX 


D, TRACKN 






0320+DD7203 




DB 


ODDH, 7 OH+D, TRACKN 




0323 D5 




PUSH 


D 


/ 


REMEMBER: E HAS ORIGINAL ERROR STATUS 






U KIM L 


DPRWE80 


1 


OOPS: COLDN'T GET TO TRACK 79 


0324+2009 




DB 


20H,DPRWE80-$-l 










CALL 


DPSEEKl 


1 


BACK TO DESIRED TRACK 






JRNZ 


DPRWE80 




SEEK ERROR 


0329+2004 




DB 


20H,DPRWE80-$-l 






032B Dl 




POP 


D 






032C El 




POP 


H 










JR 


DPRWEIO 


1 


FINAL ATTEMPT. RETURN TO CALLER. 


U J ZU+X ODH 




DB 


18H,DPRWElO-$-l 








; RESTORE/SEEK 


ERROR EXIT 








DPRWE80 










032F El 




POP 


H 


t 


FIXUP STACK 


0330 El 




POP 


H 






0331 F601 




ORI 


QMBUSY 


f 


MARK AS SEEK ERROR 


0333 C9 




RET 










; INDIRECT CALL 










DPRWE90 










0334 E9 




PCHL 









DPRECAL - RESTORE DRIVE 



FUNCTION - RETURNS THE HEAD TO TRACK ZERO 

CHECKS FORMAT TO SEE IF VT-180 DISK IS IN DRIVE 



ENTRY: N/A 



; EXIT: 

A = DISK CONTROLLER STATUS 

ZERO FLAG IS SET IF RESTORE WAS SUCCESSFUL 
CP/M MACRO ASSEM 2.0 #028 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 
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DPRECAL: 






0335 CD4603 


CALL 


DPRECALX 


; PERFORM RESTORE 


0338 C8 


RZ 




; OK 




; ERROR RECOVERY - STEP IN FIVE 


TIMES AND REPEAT 


0339 0605 


MVI 


B,5 


; SET NR OF STEPS 




DPRECALl : 






033B 3E48 


MVI 


A,QCSTEPIN 




U J JU / X U 4 


CALL 


DPCOMD 


• CITPD TTsJ HMPP 
; OlCjir ilN UiNV^lj 




DJNZ 


DPRECALl 


; REPEAT 


0340+10F9 


DB 


10H,DPRECALl-$- 


1 


0342 CD4603 


CALL 


DPRECALX 


; RESTORE AGAIN 


0345 C9 


RET 




; EXIT COME WHAT MAY 



DPRECALX - DO RESTORE OPERATION 



DPRECALX: 



0346 


3E08 


MVI 


A^QCREST 




0348 


CD7104 


CALL 


DPCOMD 


DO RESTORE 


034B 


DB60 


IN 


QPCOMD 


GET FDC STATUS 


034D 


4F 


MOV 


C,A 


SAVE STATUS 


034E 


E604 


AN I 


QMTZERO 


AT TRACK ZERO? 






JRNZ 


DPRECALXl 


YES 


0350+2004 


DB 


20H,DPRECALXl-$-l 




0352 


2F 


CMA 




SET NONZERO STATUS 


0353 


B7 


ORA 


A 


SET FLAGS 


0354 


79 


MOV 


A,C 


GET STATUS BACK 


0355 


C9 


RET 




EXIT - NOT AT TRACK 






DPRECALXl: 






0356 


79 


MOV 


A,C 


GET STATUS BACK 


0357 


E691 


AN I 


QMREST ; 


MASK ERRORS 


0359 


79 


MOV 


A,C 


RETURN FULL STATUS 


035A 


C9 


RET 




RETURN WITH STATUS 



DPSEEK - SEEK TO TRACK 



FUNCTION: SEEKS TO THE DESIRED TRACK. TESTS FOR ERRORS 
AND RETRIES AS NECESSARY. SETS PRECOMPENSATION BITS FOR 
RAINBOW DISKETTE. PERFORMS SPECIAL SEEK FOR VT180 FORMAT 
DISKETTE. 



ENTRY: DESIRED TRACK NUMBER IS IN PACKET 
POINTER TO PACKET IS IN IX. 



035B 3AC504 
035E D361 



EXIT: A = FDC STATUS 

ZERO FLAG IS SET IF SEEK WAS SUCCESSFUL 



DPSEEK: 



LDA 
OUT 



BTRACK 
QPTRKRG 



; PUT CURRENT TRACK NO INTO REG 



DPSEEKl: 
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0360 3AC304 
CP/M MACRO ASSEM 2.0 

0363 A7 

0364 C28C03 
0367 CD7303 
036A C8 



036B CD3503 
036E CO 
036F CD7303 
0372 C9 



038C CD9D03 
038F CD9D03 



ERROR 



LDA 
#029 

ANA 
JNZ 
CALL 
RZ 

RECOVERY 
CALL 
RNZ 
CALL 
RET 



BFORMAT ; GET CURRENT FORMAT 

Z80 INTERFACE AND PRIMITIVE ROUTINES 



PRIVATE VERSION 



A 

DPSEEKV 
DPSEEKX 



DPRECAL 



DPSEEKX 



IS IT RAINBOW? 

NO - DO VT-180 SEEK 
DO SEEK OPERATION 
OK 

RESTORE AND SEEK AGAIN 

RESTORE DRIVE 
HARD RESTORE ERROR 
TRY SEEK AGAIN 



DPSEEKX 



DPSEEKX: 



PERFORM SEEK OPERATION 







LDX 


A^TRACKN 


? 


GET TRACK NR FROM PACKET 


0373+DD7E03 


DB 


0DDH,A*8+46H 


,TRACKN 


0376 


FE50 


CPI 


QKMXTRK+1 


? 


CATCH ANY BAD TRACK REQUESTS SO AS NOT 






JRNC 


DPSEEKE 




TO HANG IN AN IMPOSSIBLE SEEK 


0378+300E 


DB 


30H,DPSEEKE- 


$-1 




037A 


D363 


OUT 


QPDATA 




SEND IT TO FDC 


037C 


E3 


XTHL 




7 


DELAY A BIT BEFORE COMMAND REG WRITE 


037D 


E3 


XTHL 








037E 


3E1C 


MVI 


A,QCSEEK 






0380 


CD7104 


CALL 


DPCOMD 


7 


EXECUTE SEEK 






MVI 


C,40 


7 


DELAY FOR HEAD SETTLING 






CALL 


UDELAY 






0383 


DB60 


IN 


QPCOMD 




GET STATUS 


0385 


E699 


AN I 


QMSEEK 




MASK ERRORS 


0387 


C9 


RET 






RETURN WITH STATUS 






DPSEEKE: 








0388 


3E01 


MVI 


A,QMBUSY 


t 


ILLEGAL TRACK REQUESTED. INDICATE SEEK 


038A 


A7 


ANA 


A 


} 


ERROR WITH NO OTHER STATUS 


038B 


C9 


RET 












; DPSEEKV - 


VT-180 FORMAT 


SEEK 


ROUTINE 



FUNCTION: PERFORMS SEEK ON A VT-180 FORMAT (40 TRACK) 
DISKETTE. DOES A SEEK WITH NO VERIFICATION TO THE 
SPECIFIED VT-180 TRACK MULTIPLIED BY TWO, THEN READS 
AN ADDRESS FROM THE DISKETTE TO VERIFY THAT THE 
SEEK WAS SUCCESSFUL. 

ENTRY: IX = PACKET ADDRESS 

EXIT: A = STATUS 

DPSEEKV: 



CALL 
CALL 



DPSEEKVX 
DPSEEKVX 



PERFORM SEEK 

SEEK ERROR - TRY AGAIN 
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SEEK ERROR AGAIN - HOME DISK AND RETRY 



0392 CD3503 
CP/M MACRO ASSEM 2.0 



CALL 
#030 



DPRECAL ; HOME DISK 

Z80 INTERFACE AND PRIMITIVE ROUTINES 



PRIVATE VERSION 



ujyo CO 


RNZ 


; EXIT ON RECAL ERROR 






DPSEEKVX ; TRY SEEK AGAIN 




CUT T 


DPSEEKVX ; AND AGAIN 




ID I? 11 








; DPSEEKVX - 


PERFORM VT-180 SEEK 


OPERATION 




DPSEEKVX: 








LDX 


A,TRACKN ; GET DESIRED TRACK 


039D+DD7E03 


DB 


0DDH,A*8+46H,TRACKN 


03A0 87 


ADD 


A 


r MULTIPLY TRACK BY 2 


03A1 FE50 


CPI 


QKMXTRK+1 


; CATCH ANY BAD TRACK REQUESTS SO 




JRNC 


DPSEEKE 


• TO HANG IN AN IMPOSSIBLE SEEK 


03A3+30E3 


DB 


30H,DPSEEKE-$-l 




03A5 CDBB03 


CALL 


DPSEEKN 


• SEEK WITH NO VERIFY 


03A8 CDC302 


CALL 


DPRDADR 


• READ ADDRESS 


03AB 4F 


MOV 


C,A 


• SAVE STATUS 


03AC A7 


ANA 


A 


• READ ERROR? 


03AD CO 


RNZ 




► YES - EXIT 


03AE DB62 


IN 


QPSECRG \ 


• GET TRACK NUMBER 




CMPX 


TRACKN 


COMPARE WITH DESIRED TRACK 


03B0+DDBE03 


DB 


ODDH,OBEH,TRACKN 




03B3 79 


MOV 


ArC 


• GET STATUS BACK 


03B4 CO 


RNZ 




ERROR - NOT AT REQUESTED TRACK 


03B5 El 


POP 


H \ 


• NO ERROR - EMPTY STK FOR 'GOOD* 


03B6 C9 


RET 







DPSEEKN - SEEK WITH NO VERIFY 



FUNCTION: SEEKS A SPECIFIED TRACK BUT DOES NO VERIFY THE 
SUCCESS OF THE SEEK. USED FOR STARTING MOTOR AND 
THE VT-180 SEEK. 



ENTRY: A = DESIRED TRACK NUMBER 



03B7 1610 
03B9+1802 



03BB 1618 
03BD D363 
03BF 7A 
03C0 E3 
03C1 E3 



EXIT: N/A 



DPSEKHO: 

MVI 

JR 

DB 

DPSEEKN: 

MVI 

DPSEKN3: OUT 
MOV 
XTHL 
XTHL 



D,QCSEKHO 
DPSEKN3 

18H,DPSEKN3-$-l 



D,QCSEEKN 

QPDATA 

A,D 



;SEEK WITH NO HEAD LOAD 



;SEEK WITH HEAD LOAD 
; SEND TRACK NR TO FDC 
;SEEK COMMAND 
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03C2 CD7104 
03C5 C9 



CALL 
RET 



DPSELDR - 
CP/M MACRO ASSEM 2.0 #031 



DPCOMD 



; DO SEEK 



SELECT DRIVE AND CHECK IF IT'S READY 

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



ENTRY: DRIVE NUMBER IS IN PACKET 

EXIT: DRIVE NUMBER IN E 

IF DRIVE WAS NOT READY, CARRY FLAG IS SET 





• 
• 


AND ' 


NOT READY* STATUS 


IS 


STORED IN PACKET 




; 

DPSELDR 


: 








03C6 CDA704 




CALL 


GETDRV 


/ 


GET DRIVE NUMBER 


03C9 5F 




MOV 


E,A 










LDX 


A,TRACKN 


/ 


NOW SEE IF WRITE PRECOMP BITS WILL BE 


03CA+DD7E03 




DB 


0DDH,A*8+46H,TRACKN 


03CD FE3D 




CPI 


QKPCTRK 


/ 


NEEDED: I.E., WHETHER WE ARE TO BE 


03CF 3E00 




MVI 


A,0 


7 


BEYOND TRACK 60 






JRC 


DPSELl 






03D1+3802 




DB 


38H,DPSELl-$-l 






03D3 3E40 




MVI 


A,QKPCBIT 








DPSELl: 










03D5 B3 




ORA 


E 






03D6 32C404 




STA 


TCURDRV 


t 


DRIVE SELECTED WITH PRE COMP 


03D9 D340 




OUT 


QPSTAT 




SELECT DRIVE 




DPSEL2: 










03DB DB60 




IN 


QPCOMD 


f 


GET FDC STATUS 


03DD E681 




AN I 


QMBUSY+QMNRDY 


r 


READY AND NOT BUSY? 






JRZ 


DPSEL3 


/ 


YES 


03DF+2811 




DB 


28H,DPSEL3-$-l 






03E1 E601 




AN I 


QMBUSY 


r 


BUSY? 






JRNZ 


DPSEL2 


f 


YES - WAIT IT OUT 


03E3+20F6 




DB 


20H,DPSEL2-$-l 






03E5 DB61 




IN 


QPTRKRG 


1 


NO: NOT READY. DUMMY SEEK TO CURRENT TRACK 


03E7 CDBB03 




CALL 


DPSEEKN 


/ 


TO READY DRIVE IF POSSIBLE 


03EA DB60 




IN 


QPCOMD 


/ 


GET FDC STATUS 


03EC E680 




AN I 


QMNRDY 


/ 


STILL NOT READY? 






JRNZ 


DPSELS2 


/ 


YES " RETURN NOT READY STATUS 


03EE+206B 




DB 


20H,DPSELS2-$- 


1 








JR 


DPSEL3C 


? 


IGNORE CHECK FOR ISSUANCE OF 'HLT' TO 1793 


03F04-182A 




DB 


18H,DPSEL3C-$- 


1 






DPSELl: 










03F2 3AC204 




LDA 


BCURDRV 


f 


GET CURRENT DRIVE NR 


03F5 AB 




XRA 


E 


7 


SAME AS DESIRED DRIVE? 






JRZ 


DPSEL4 


7 


YES - GO SEE IF FIRST ACCESS AFTER RESET 


03F6+2838 




DB 


28H,DPSEL4-$-l 










LDX 


A,FNCCOD 


7 


GET FUNCTION CODE 



03F8+DD7E00 



DB 



0DDH,A*8+46H,FNCCOD 
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03FB FE14 

03FD+201D 

03FF 3AC204 
0402 E602 

0404 57 

0405 7B 

0406 E602 
0408 BA 

CP/M MACRO ASSEM 2.0 

0409+2007 



040B 0E3C 
040D CD4A00 

0410+180A 



CPI 

JRNZ 

DB 

LDA 
AN I 
MOV 
MOV 
AN I 
CMP 
#032 

JRNZ 
DB 



QKWTCOM 
DPSEL3C 

20H,DPSEL3C-$-l 

BCURDRV 
2 

D,A 
A,E 
2 
D 

Z80 



WRITE TO BE DONE? 
NO 



YES - THEN GET CURRENT DRIVE 
CHECK FOR SELECT OF A OR B 
TO C OR D; C OR D TO A OR B 
NEW DRIVE TO SELECT 



INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



DPSEL3A 

20H,DPSEL3A-$-l 



A TO B TO A, C TO D, D TO C 



MVI C,60 

CALL UDELAY 

JR DPSEL3C 

DB 18H,DPSEL3C-$-l 



DELAY FOR 30 MSEC TO ALLOW HEADS TO 
SETTLE DURING HEAD LOAD 



THE SELECT FROM A OR B TO C OR D; C OR D TO A OR B REQUIRES 

THE ISSUANCE OF A SEEK WITH QMHLT = 0, THEN QMHLT = I, WITH NO VERIFY 

THIS INHIBITS THE "HLT" INPUT TO THE 1793 FOR ~ 500 MSECS 

WHICH ALLOWS THE MOTOR TO GET UP TO SPEED. 



DPSEL3A: 



0412 


DB61 




IN 


QPTRKRG 


; CURRENT TRACK 


0414 


CDB703 




CALL 


DPSEKHO 


;SEEK WITH NO HEAD LOAD 


0417 


DB61 




IN 


QPTRKRG 






0419 


CDBB03 




CALL 


DPSEEKN 


;SEEK WITH HEAD LOAD 


041C 


7B 


DPSEL3C 


: MOV 


A,E 


r 


SET NEW DRIVE AS CURRENT 


041D 


32C204 




STA 


BCURDRV 






0420 


CD6604 




CALL 


GETRAK 




GET CURR TRACK FROM TABLE 


0423 


32C504 




STA 


BTRACK 




AND STORE IT 








MVI 


C,140 




DELAY FOR HEAD SETTLING 








CALL 


UDELAY 










; SET FORMAT 


AND TRACK REGISTER 






0426 


21F43C 




LXI 


H^TFORMAT 


7 


BASE OF FORMAT TABLE 


0429 


1600 




MVI 


D,0 






042B 


19 




DAD 


D 


t 


OFFSET INTO TABLE 


042C 


7E 




MOV 


A,M 




GET FORMAT INFO 


042D 


32C304 




STA 


BFORMAT 


? 


STORE IN CURRENT FORMAT 






DPSEL4.: 










0430 


3AC504 




LDA 


BTRACK 






0433 


3C 




INR 


A 


7 


CURR TRACK IS FF ON FIRST 


0434 


CO 




RNZ 




7 


SYSTEM RESET. IF NOT, COl 






DPSEL5: 










0435 


DB61 




IN 


QPTRKRG 


7 


FORCE TYPE 1 STATUS 


0437 


CDBB03 




CALL 


DPSEEKN 







ON FIRST ACCESS TO A DRIVE AFTER A DISK 
SYSTEM RESET, MAKE SURE DISK IS IN 
DRIVE RIGHT SIDE UP BY LOOKING FOR A 
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; CHANGE IN THE INDEX PULSE STATUS. ON A 
TIMEOUT, DRIVE IS CONSIDERED NOT READY. 



043A 


21409C 






LXI 


H,QKDRCNT 








DPSELd: 








043D 


DB60 






IN 


QPCOMD ; 


READ STATUS ONCE TO GET RID OF SPURIOUS 


043F 


DB60 






IN 


QPCOMD ; 


INDEX STATUS 


0441 


E602 






AN I 


QMINDEX ; 


SAVE STARTING INDEX BIT STATE 


0443 


47 






MOV 


B,A 




0444 


CD4C04 






CALL 


DPSELS ; 


WAIT FOR 1 CHANGE IN INDEX 


0447 


CD4C04 






CALL 


DPSELS ; 


WAIT FOR 2ND CHANGE 


044A 


A7 






ANA 


A ; 


CLEAR CARRY 


044B 


C9 






RET 




DISK IS OK 






DPSELS: 






• SUBROUTINE: CHECKS FOR CHANGE IN INDEX 


CP/M MACRO ASSEM 


2.0 


#033 


Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 


044C 


2B 






DCX 


H 




044D 


7C 






MOV 


A,H 




044E 


B5 






ORA 


L 












JRZ 


DPSELSl ; TIMEOUT: DISK NOT READY 


044F+2809 






DB 


28H,DPSELSl-$-l 




0451 


DB60 






IN 


QPCOMD 




0453 


E602 






AN I 


QMINDEX 




0455 


B8 






CMP 


B 




0456 


47 






MOV 


B,A ; SAVE NEW INDEX STATUS 


0457 


CO 






RNZ 


; AHA — CHANGE HAS OCCURRED. 










JR 


DPSELS 




0458+18F2 






DB 


18H,DPSELS-$-l 








DPSELSl 








045A 


CI 






POP 


B 








DPSELS 2: 






045B 


DB61 






IN 


QPTRKRG 


; GET CURRENT TRACK # 


045D 


CDB703 






CALL 


DPSEKHO 


; UNLOAD HEADS 










MVIX 


QMNRDY, STATUS 


; SET NOT READY STATUS 


0460+DD360180 






DB 


ODDH , 3 6H , STATUS , QMNRDY 


0464 


37 






STC 




? CARRY MEANS NOT READY 


0465 


C9 






RET 












? GETRAK - 


GET CURRENT TRACK NUMBER FROM TRACK TABLE 








• ENTRY. 




A = DRIVE NUMBER 










? EXIT: 




A = TRACK NUMBER 














HL= TRACK TABLE PINTER FOR DRIVE 






( 


aETRAK: 








0466 


E602 






AN I 


2 


; ** FOR RX-50 COUPLED DRIVES 


0468 


4F 






MOV 


C,A 




0469 


0600 






MVI 


B,0 




046B 


21F03C 






LXI 


H^TTRACK 


; BASE OF TRACK TABLE 


046E 


09 






DAD 


B 


; OFFSET INTO TRACK TABLE 


046F 


7E 






MOV 


A,M 


; GET TRACK FOR THIS DRIVE 


0470 


C9 






RET 
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DPCOMD - EXECUTE A TYPE 1 COMMAND 



WAITS UNTIL COMMAND IS COMPLETED BEFORE RETURNING 



ENTRY.: COMMAND CODE IS IN 'A' REG. 



DPCOMD: 



DPCOMDl: 



0471 D360 

0473 DB40 

0475 87 

0476 F8 

0477+18FA 
CP/M MACRO ASSEM 2.0 



OUT 

IN 

ADD 

RM 

JR 

DB 

#034 



QPCOMD 

QPSTAT 
A 

DPCOMDl 
18H,DPC0MD1- 



$-1 



SEND COMMAND TO FDC 

GET GENERAL STATUS 
SHIFT INT. BIT TO SIGN 
EXIT ON INTERRUPT 
LOOP UNTIL DONE 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



DPRWSET - SET UP FDC AND SEND TYPE 2 OR 3 (READ/WRITE) COMMAND 
FUNCTION: SENDS SECTOR TO FDC. ADDS HEAD LOAD BIT TO COMMAND 
IF HEAD IS NOT ALREADY LOADED. SETS UP REGISTERS FOR INI AND 
OUTI INSTRUCTIONS. SENDS COMMAND TO FDC. 



ENTRY: FDC COMMAND IS IN "E" REG. SECTOR IS IN PACKET. 



; EXIT: N/A 
DPRWSET: 



0479 DB60 


IN 


QPCOMD 




GET CONTROLLER STATUS 


047B E601 


AN I 


QMBUSY 




• BUSY? 




JRNZ 


DPRWSET 




YES - WAIT UNTIL NOT BUSY 


047D+20FA 


DB 


20H,DPRWSET-$ 


-1 




047F E3 


XTHL 






' NEED SOME DELAY. WE'LL UNDO IT 


0480 3ED0 


MVI 


A^QCTERM 




' SEND TERMINATE COMMAND 


0482 D360 


OUT 


QPCOMD 




• TO FORCE TYPE 1 STATUS 


0484 E3 


XTHL 






? DELAY - MATCHES THE ONE ABOVE 


0485 0E63 


MVI 


CQPDATA 




' SET UP DATA PORT NUMBER 




LDX 


CDMALOW 




} SET UP DMA ADDRESS 


0487+DD6E04 


DB 


0DDH,L*8+46H, 


DMALOW 




LDX 


H,DMAHI 






048A+DD6605 


DB 


0DDH,H*8+46H, 


DMAHI 




LDX 


A^SECTN 


; GET SECTOR NUMBER 


048D+DD7E02 


DB 


0DDH,A*8+46H, 


SECTN 


0490 E61F 


ANI 


SECNUM 


; ISOLATE SECTOR NUMBER 


0492 D362 


OUT 


QPSECRG 


; SEND IT TO FDC 


0494 E3 


XTHL 






} DELAY BEFORE STATUS READ 


0495 E3 


XTHL 








0496 E3 


XTHL 








0497 E3 


XTHL 








0498 E3 


XTHL 








0499 E3 


XTHL 








049A F3 


DI 




; DISABLE FOR DISK I/O 
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049B DB60 


IN 


QPCOMD 


GET FDC STATUS 


049D E620 


AN I 


QMHLT ; 


HEAD ALREADY LOADED? 


049F 7B 


MOV 


A,E 


GET COMMAND 




JRNZ 


DPRWSET4 


; SKIP IF HEAD ALREADY 


04A0+2002 


DB 


20H,DPRWSET4-$-l 




04A2 F604 


ORI 


QMEFLG 


ADD HEAD LOAD FLAG 




DPRWSET4: 






04A4 D360 


OUT 


QPCOMD 


SEND TO CONTROLLER 


04A6 C9 


RET 







GETDRV - GET DRIVE NUMBER FROM PACKET 
ENTRY: IX = PACKET ADDRESS 
EXIT: A = DRIVE NUMBER 



GETDRV: 

LDX 

CP/M MACRO ASSEM 2,0 #035 

04A7+DD7E02 DB 

04AA E660 ANI 

04 AC 07 RLC 

04AD 07 RLC 

04AE 07 RLC 

04AF C9 RET 



A, DRIVEN ; GET DRIVE NUMBER 

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 

0DDH,A*8+46Hr DRIVEN 

DRVNUM ; ISOLATE IT 

; MOVE INTO BITS 0-2 



SETRAK - STORE TRACK NUMBER IN TRACK TABLE 

ENTRY: A = TRACK NUMBER 

IX = PACKET ADDRESS 

EXIT: TTRACK CONTAINS NEW TRACK VALUE 

SETRAK: 



04B0 


32C504 


STA 


BTRACK 


; CURRENT TRACK FOR CURRENT DRIVE 


04B3 


47 


MOV 


B,A 


; SAVE TRACK 


04B4 


CDA704 


CALL 


GETDRV 


; GET DRIVE NUMBER 


04B7 


E602 


ANI 


2 


; ** FOR RX-50 COUPLING 


04B9 


5F 


MOV 


E,A 


; MAKE 16-BIT DRIVE NR 


04BA 


1600 


MVI 


D,0 




04BC 


21F03C 


LXI 


H, TTRACK 


; BASE OF TRACK TABLE 


04BF 


19 


DAD 


D 


; OFFSET INTO TABLE 


04C0 


70 


MOV 


M,B 


; STORE TRACK 


04C1 


C9 


RET 







CP/M MACRO ASSEM 2.0 



PAGE 
#036 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 
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DATA AREA 



04C2 FF 

04C3 00 

04C4 FF 

04C5 FF 



BCURDRV DB 
BFORMAT DB 
TCURDRV DB 
BTRACK DB 



OFFH 


OFFH 
OFFH 



CURRENT DRIVE NUMBER 

FORMAT FOR CURRENT DRIVE (NONZERO = VT-180) 
CURRENT DRIVE # WITH PRE COMP SET IF NECESSARY 
CURRENT TRACK OF SELECTED DRIVE ("TRUE" TRACK) 



TTRACK DB OFFH, OFFH, OFFH, OFFH ; TRACK TABLE 

TFORMAT DB 0,0,0,0 ; FORMAT TABLE (NONZERO = VT180) 

** NOTE: TTRACK AND TFORMAT ARE IN THE DATA BLOCK. THEY ARE DEFINED 

AT THE END OF THIS MODULE ( Z80CODE .ASMr f NEXT TO THE PACKET 

POINTER DEFINITIONS (Z80PKT AND I88PKT) 



CP/M MACRO ASSEM 2.0 



PAGE 
#037 



Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



****************************************************** 

NAME.: Z START 

FUNCTION: THIS ROUTINE WILL SET UP THE STACK AND ALLOW THE Z80 
TO EXECUTE AN APPLICATION. 



ENTRY: 
EXIT: 
Z START: 



IX = PACKET ADDRESS 



04C6 F3 
04C7 313005 

04CA 210000 



04CD E5 

04CE 3EFF 
04D0 323105 



04D3+DD6E02 
04D6+DD6603 
04D9 FB 
04DA E9 
CP/M MACRO ASSEM 2.0 



DI 
LXI 

LXI 



PUSH 

MVI 
STA 

LDX 
DB 
LDX 
DB 

EI 

PCHL 
PAGE 
#038 



SP, STACK 
H,0 



DISABLE INTERRUPTS WHILE 
SWAPPING STACKS 

PUSH 00 ONTO STACK FOR CP/M-80 
TRANSIENTS THAT END WITH 'RET' 
SO IT WILL BE SAME AS ENDING 
WITH ^ JUMP * 



SET DONE FLAG 

GET START ADDRESS FROM PACKET 



A, TRUE 
DONEFL 

L,STADRL 

0DDH,L*8+46H,STADRL 
H,STADRH 

0DDH,H*8+46H,STADRH 



; ENABLE INTERRUPTS 
; JUMP TO START ADDRESS 
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 
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; NAME: ZMOVE 

; FUNCTION: THIS ROUTINE WILL MOVE A BLOCK OF DATA FROM ANYWHERE IN 
Z80 MEMORY TO ANYWHERE ELSE IN Z80 MEMORY. 

; ENTRY: IX = PACKET ADDRESS 

; EXIT: IX = PACKET ADDRESS 

ZMOVE: 





LDX 


E,SCADRL 


; GET SOURCE ADDRESS INTO HL 


04DB+DD6E02 


DB 


ODDH , L* 8+4 6H , SCADRL 






LDX 


H,SCADRH 




04DE+DD6603 


DB 


0DDH,H*8+46H,SCADRH 






LDX 


E,DSADRL 


; GET DESTINATION ADDRESS INTO 


04E1+DD5E04 


DB 


0DDH,E*8+46H,DSADRL 






LDX 


D^DSADRH 




04E4+DD5605 


DB 


ODDH , D* 8+4 6H, DSADRH 






LDX 


CBYCNTL 


; GET BYTE COUNT INTO BC 


('4E7+DD4E06 


DB 


ODDH , C* 8+4 6H , BYCNTL 






LDX 


B.BYCNTH 




04EA+DD4607 


DB 


ODDH , B* 8+4 6H , BYCNTH 






LDIR 




; MOVE THE BLOCK OF DATA 


04ED+EDB0 


DB 


OEDH,OBOH 




04EF C9 


RET 




AND RETURN 




PAGE 






CP/M MACRO ASSEM 2.0 


#039 


Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 



r 

. ************************************************ 



0530 = 


STACK 


EQU 


S+40H 


r 


SERVICE ROUTINE STACK POINTER 




0531 = 


DONEFL 


EQU 


STACK+1 


7 


DONE FLAG 




3CFC = 


Z80PKT 


EQU 


INTFPTR 


r 


PACKET POINTER FOR PACKET FROM 


Z80 


3CFE = 


I88PKT 


EQU 


INTFPTR+2 




PACKET POINTER FOR PACKET FROM 


8088 



; FOLLOWING TWO DEFINITIONS ARE FOR THE DISK I/O ROUTINES. 
; THE TABLES ARE LOCATED IN THE DATA BLOCK, INITIALIZED BY THE BIOS 
; COLD BOOT ROUTINE AND MOVED BY Z80CCP WHEN A CONFIGURATION CHANGE OCCURS. 
3CF0 = TTRACK EQU INTFPTR-12 ; TRACK TABLE 

3CF4 = TFORMAT EQU INTFPTR- 8 ; FORMAT TABLE 

0532 ORG DONEFL+1 



0532 END 
CP/M MACRO ASSEM 2.0 #040 Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION 
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0000 BC 
0006 BYCNTL 
0198 DKCHECK2 
OlEF DKRW40 
023C DKRWSET 
0531 DONEFL 
025F DPREAD 
0346 DPRECALX 
32F DPRWE80 
035B DPSEEK 
039D DPSEEKVX 
03DB DPSEL2 
0435 DPSEL5 
044C DPSELS 
0060 DRVNUM 
0000 FALSE 
0466 GETRAK 
0000 I88INT 
0004 INTBIT 
0004 IX 
0237 NEXTSC15 
0020 OTHFNC 
FFFF PRIVATE 
0018 QCSEEKN 
OOFO QCWRTRK 
00 OA QKMXSECT 
0013 QKRDCOM 
0020 QMDELDM 
0020 QMHLT 
0018 QMON 
OOBD QMREAD 
0010 QMSKERR 
0004 QMVERF 
0063 QPDATA 
0018 RST3 
OOIF SECNUM 
0530 STACK 
04C4 TCURDRV 
004A UDELAY 
4DB ZMOVE 



04C2 BCURDRV 
0002 DE 
OIBB DKCHECK3 
OlFC DKRW90 
0014 DKWRIT 
0471 DPCOMD 
0262 DPREADX 
0356 DPRECALXl 
0334 DPRWE90 
0360 DPSEEKl 
0373 DPSEEKX 
03F2 DPSEL3 
043D DPSEL6 
027B DPWRITE 
0005 DSADRH 
0000 FNCCOD 
02AD GSODRV 
3CFE I88PKT 
3CFC INTFPTR 
0004 lY 
0238 NEXTSC20 
A3ED OUTII 
OOCO QCRDADR 
0010 QCSEKHO 
OOAO QCWRTS 
004F QKMXTRK 

0002 QKROBIN 

0003 QMDRNR 

0002 QMINDEX 
0010 QMONl 
0091 QMREST 
0008 QMSSEL 
0040 QMWPROT 
0062 QPSECRG 
0020 RST4 
0200 SECSIZ 

0003 STADRH 
3CF4 TFORMAT 
0040 USRFNC 
04C6 Z START 



04C3 B FORMAT 
02C2 DELAY7 
OICF DKREAD 
0201 DKRW95 
OICF DKWRITE 
0473 DPCOMDl 
0265 DPREAD Z 
02E9 DPRWEIO 
02DB DPRWEX 
0388 DPSEEKE 
03B7 DPSEKHO 
0412 DPSEL3A 
03C6 DPSELDR 
02AB DPWRT3 
0004 DSADRL 
OOFF FNCNG 
0171 HIFNC 
A2ED INII 
0020 INTSTA 
00C3 JUMP 
0207 NEXTSEC 
0112 PKTPRO 
0080 QCREADS 
0048 QCSTEPIN 
0015 QKCMCOM 
0040 QKPCBIT 
0014 QKWTCOM 
0002 QMDRQ 
0004 QMLDATA 
OOCO QMPRECMP 
0010 QMRNF 
0004 QMTG42 

0020 QMWRFLT 
0040 QPSTAT 
0030 RST6 
0002 SECTN 

0002 STADRL 

0003 TRACKN 

0021 Z80BGN 



04C5 BTRACK 
0186 DKCHECK 
OlEO DKRW20 
024F DKRWSIO 

0005 DMAHI 
02C3 DPRDADR 
0335 DPRECAL 
02EB DPRWE15 
0479 DPRWSET 
03BB DPSEEKN 
03BD DPSEKN3 
041C DPSEL3C 
045A DPSELSl 
027E DPWRTX 
0010 DSKFNC 
OOFO FRANCE 
0179 HIFXIT 
63DB ININ 
0100 INTSTR 

0007 LEGFUN 

0006 NSECT 
015E PKTRl 

0008 QCREST 
0068 QCSTEPOT 
9C40 QKDRCNT 
00 3D QKPCTRK 

0001 QMBUSY 
0004 QMEFLG 
0080 QMNRDY 
0020 QMPSIDE 

0002 QMSCOM 
0004 QMTZERO 
OOFD QMWRITE 
0061 QPTRKRG 

0003 SCADRH 
04B0 SETRAK 
0100 START 
FFFF TRUE 
0022 Z80MVE 



0007 BYCNTH 
0195 DKCHECKl 
OlEC DKRW30 
0259 DKRWS20 
0004 DMALOW 
02C6 DPRDADRX 
033B DPRECALl 
02FD DPRWE20 
04A4 DPRWSET4 
038C DPSEEKV 
03D5 DPSELl 
0430 DPSEL4 
045B DPSELS2 
0002 DRIVEN 
014D ERROR 
04A7 GETDRV 
0004 HL 

0046 INOROUT 
0184 IPKT 
022C NEXTSCIO 
OOOA NUMSEC 
0152 PKTRET 
OOlC QCSEEK 
OODO QCTERM 
0004 QKDRETRY 
0000 QKRATE 

0008 QMCRC 
0008 QMHLD 
0008 QMONO 
009D QMRDADR 
0099 QMSEEK 
0010 QMUPDT 
00 60 QPCOMD 
0040 RDORWR 
0002 SCADRL 

0000 SHARE 

0001 STATUS 
3CF0 TTRACK 
3CFC Z80PKT 



CP/M ASM86 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

TITLE 'DRI PATCHES FOR CP/M 86' 
• *********************************************** 
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21E6 
21F1 
21ED 
OOOA 



21E6 AA 
21E7 OACO 
21E9 7402 

21F1 IF 
21F2 A20A00 



21ED 



CP/M 86 VI. Ir PATCH 01, BDOS , 3/3/8 2 



*************************************************************** 



PATCH_1 
PATCH_2 
F472 

CCP_BUFF_LEN 
CSEG 
ORG 

FUNC472: 

ORG 

STOSB 

OR 

JZ 

ORG 

POP 

MOV 



21E6H 
21F1H 
21EDH 
BYTE PTR 



EQU 
EQU 
EQU 
EQU 
$ 

F472 

PATCH_1 

AL,AL 
FUNC472 
PATCH_2 
DS 

CCP BUFF LEN.AL 



LOCATION OF FIRST PATCH 
LOCATION OF SECOND PATCH 



.OAH 



CP/M ASM86 1.1 SOURCE: DPIPATCH.A86 DPI PATCHES FOP CP/M 86 

EJECT 

CP/M 86 VI. 1, PATCH 06, BDOS, 4/23/82 



PAGE 



24A2 
1896 



1896 8E06A224 



*1t1t**1titi(*it1tic1t1tii1tic1t1t *********** ****************** 

DMABASE EQU WORD PTR 24A2H 

PATCH_AREA EQU 1896H 
CSEG 

ORG PATCH_AREA 

MOV ES,. DMABASE 



CP/M ASM86 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

EJECT 

CP/M 86 VI. 1, PATCH 07, BDOS , 4/21/82 
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0B77 
0B77 33C0 



***ic*1tic1cit1tis1c*1e1tic1cicicieicicicicicieic*1t1citicitieicic**ic****ic1cicic1cicit* 

PATCH_AREA2 EQU 037 7H 

CSEG 

ORG PATCH_APEA2 

XOR AX, AX 



CP/M ASMS 6 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

EJECT 

ieici(icicieicicic*ic*ieit*ici(icicicicicicicic1i*isicicicit1c1e*1sicic*1cic1c1cic1c1cic* 

CP/M 86 VI. 1, PATCH 08, BDOS, 5/12/82 

****************************************^ 

CSEG 

0E23H 
ES 



PAGE 



0E23 06 
0E24 90 
0E25 8916DC22 

OFIA E903FB 
OFID 90 



0A20 A39624 
0A23 07 
0A24 C3 



0A2G 



ORG 
PUSH 
NOP 
MOV 
ORG 
JMP 
NOP 
ORG 

PATCH_AREA3 : 
MOV 
POP 
RET 



.22DCH,DX 
OFIAH 

PATCH_AREA3 
0A20H 

.2496H,AX 

ES 



CP/M ASMS 6 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

EJECT 

1c1c1t1c1c1cic1cic1cici(1c1si(1eici(1cie***icieici(**1c*4c1c1cic*ic1cic1c1tit*ie1(**1c* 

CP/M 86 VI. 1, PATCH 10, BDOS , 5/20/82 

******************************************** 

CSEG 

ORG 0A50H 

LABEL_0 : 

0A50 7207 0A59 JB OK 

0A52 C7069B24FFFF MOV WORD PTR . 249BH , OFFFFH 

0A58 C3 RET 

OK: 

0A59 E93B01 OB*^"^ JMP LABEL_1 

ORG 0B94H 
0B94 E9B9FE 0A50 JMP LABEL_0 

ORG 0B97H 

LABEL 1: 



PAGE 



CP/M ASM86 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 PAGE 6 

EJECT 



OFIE 

0F06 
0A30 
2323 
249B 
249D 



0A30 A12323 

0A33 A39D24 

0A36 C7069B24FFFF 

0A3C E9C704 0F06 



OFIE E90FFB 0A30 



CP/M 86 VI. 1, PATCH 11, BDOS , 5/20/82 



******************************************************* 



LOADERR_LOC 

LOAD59_RET 

PAT_OFFSET 

USER_PARM_SEG 

ARET 

PARAM_SEG 

CSEG 
ORG 

PATCH: 

MOV 
MOV 
MOV 
JMP 
ORG 

LOADRET : 

ORG 
JMP 



EQU 


OFIEH 


EQU 


0F06H 


EQU 


0A30H 


EQU 


02323H 


EQU 


0249BH 


EQU 


0249DH 


PAT_ 


OFFSET 



AX, .USER_PARM_SEG 

.PARAMOS EG, AX 

WORD PTR .ARET,OFFFFH 

LOADRET 

LOADS 9_RET 

LOADERR_LOC 
PATCH 



ADDR OF LOAD ERROR ROUTINE 

EXIT FROM LOAD ERROR ROUTINE 

PATCH AREA 

USER'S DATA SEGMENT 

RETURN VALUE 

USER'S DATA SEGMENT AT ENTRY 



CP/M ASM86 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

EJECT 

• ************************************************ 
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CP/M 86 VI. 1, PATCH 13, BDOS, 6/08/82 

*************************************************************** 



OAOO 


PATCH 


_AREA4 


EQU OAOOH 


OOEO 


BDOS 




EQU OOEOH 








CSEG 










ORG 


PATCH_AREA4 






START_ 


PATCH: 




OAOO 


2EC606982401 




MOV 


CS:BYTE PTR .2498H,01 


0A06 


50 




PUSH 


AX 


0A07 


2E8A262723 




MOV 


AH,CS: .2327H 


OAOC 


2EA01323 




MOV 


AL,CS: .2313H 


OAIO 


50 




PUSH 


AX 


OAll 


CDEO 




INT 


BDOS 


0A13 


58 




POP 


AX 


0A14 


2EA21323 




MOV 


CS: .2313H,AL 


0A18 


2E88262723 




MOV 


CS: .2327H,AH 


OAID 


58 




POP 


AX 


OAIE 


C3 




RET 




OAIF 


90 




NOP 
ORG 


0C4 2H 


0C42 


E9BBFD 


OAOO 


JMP 


START_PATCH 


0C45 


90 




NOP 




0C46 


90 




NOP 




0C47 


90 




NOP 




0C48 


90 




NOP 




0C49 


90 




NOP 




0C4A 


90 




NOP 





CP/M ASMS 6 1.1 SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86 

EJECT 
END 

END OF ASSEMBLY. NUMBER OF ERRORS: 0. USE FACTOR: 2% 



CP/M ASMS 6 1.1 SOURCE: 



CPLBIOS.A86 Customized Basic I/O System 

title 'Customized Basic I/O System' 

* * 

* This Customized BIOS adapts CP/M-86 to 

* the following hardware configuration 



PAGE 



Processor: PC-100 Rainbow 
Brand: DEC 
Controller : 
System: CP/M 86/80 



Programmer : rdk/CPL 
Revisions : 



Release 1.0.1 

8/25/82 BIOS modified to operate with 

PC-100 Rainbow hardware, and to 
operate with Z80 second CPU. 
ROM date: 8/17/82 

9/28/82 Mod number 2 (release 1.0.2) 
Firmware vector initializing 
added. Interrupts initialized 
for printer and com port. 
XON/XOFF support included for 
input routines as well as 
output. Ability to run submit 
files with scratch other than 
A added. 

ROM date: 9/20/82 



************************************************ 



0001 


version_n umber 


equ 




1 


0000 


rev_n umber 


equ 







0006 


mod number 


equ 




6 


FFFF 


true 


equ 


-1 




0000 


false 


equ 


not 


true 


OOOD 


cr 


equ 


Odh 


;carriage return 


OOOA 


If 


equ 


Oah 


;line feed 


0043 


Ists 


equ 




4 3h 


0041 


Idata 


equ 




41h 


0042 


csts 


equ 




4 2h 


0040 


cdata 


equ 




40h 


0013 


ctrl_s 


equ 




13h 


0011 


Ctrl q 


equ 




llh 




********************************************** 



CP/M ASMS 6 1.1 SOURCE: 



0000 
OOEO 



CPLBIOS.A86 Customized Basic I/O System 
* 

* Loader_bios is true if assembling the 

* LOADER BIOS, otherwise BIOS is for the 

* CPM.SYS file. 
* 

loader_bios equ false 

bdos_int equ 224 ; reserved BDOS interrupt 

;DEBLOCK EQU TRUE ;do deblocking 

IF not loader bios 



PAGE 



2500 
0000 
0B06 
24B7 
22E6 



FDOO 



;l 

bios_code 
ccp__of f set 
bdos ofst 
curdrvs 
kbchar 
;l 



equ 2500h 
equ OOOOh 
equ 0B06h 
equ 24B7h 
equ 22e6h 



I 



7BDOS entry point 

;BDOS current drive address 

;BDOS keyboard character 



ENDIF ;not loader bios 
pb2_adr equ OfdOOh ; 

IF loader bios 



;l 

bios code 
ccp_of f set 
bdos ofst 



equ 1200h ;start of LDBIOS 
equ 0003h jbase of CPMLOADER 
equ 0406h ;stripped BDOS entry 

I 



ENDIF 7loader_bios 
INCLUDE DEFBUF.LIB 

ieicic1cicicieicicicicicicic1e*ieicicicicicicieicic1c*1cic1c*ic*icic1c1cic1tit1citicic1c* 

OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK 





FFAO 


XDPCX 


EQU 


-60H ; 


' DISK PARAMETER STORAGE (6 OH) 




0000 


XDEFBUF 


EQU 


OOOH 1 


• MISC. BUFFER (LENGTH=80H) 




0086 


XPACKET 


EQU 


086H ; 


BIOS MESSAGE PACKET (LENGTH=OEH) 




0086 


XSTPKT 


EQU 


086H ; 


► START PACKET BUFFER (LENGTH=OEH) 




0094 


XADCPKT 


EQU 


094H ; 


► DATA PACKET (LENGTH=OEH) 




0094 


XMVPKT 


EQU 


094H ; 


' MOVE PACKET BUFFER (LENGTH=OEH) 




00A2 


XSHRBUF 


EQU 


0A2H J 


► SEGMENT BUFFER (LENGTH=200H) 




02F8 


XMEMSIZE 


EQU 


2F8H ; 


► MEMORY SIZE (WORD) 




02FA 


XPCPMADR 


EQU 


2FAH 


' PSEUDO CP/M ADDRESS (WORD) 




02FC 


XZ80PKT 


EQU 


2FCH 


f PACKET POINTER FROM Z80 (WORD) 




02FE 


XI88PKT 


EQU 


2FEH 


• PACKET POINTER FROM 8088 (WORD) 




02F0 


XTTRACK 


EQU 


2F0H 


? TRACK TABLE 




02F4 


XTFORMAT 


EQU 


2F4H 


► FORMAT TABLE 




02E7 


XCSFLAG 


EQU 


2E7H 


' CONSOLE STATUS FLAG 



CP/M ASM86 1.1 SOURCE: CPLBIOS,A86 Customized Basic I/O System 



PAGE 



= 0000 
= FFFE 
= FFFE 



; OFFSETS FROM ZOT FOR CONVENIENCE 
ZOTP EQU 

Z80FLAGPT EQU -2 

CICCK EQU -5 



; Z80 FLAG 

; Z80-RUNNING FLAG 

; CONSOLE STATUS FLAG CHECK 



= 0002 
= 0001 
= 0017 



; OTHER USEFUL EQUATES 

BDCS EQU 2 

BIOCS EQU 1 

BIOS JMPS EQU 23 



; BDOS CHARACTER READY BIT 

; BIOS CONSOLE STATUS BIT 

; NUMBER OF FUNCTIONS IN JUMP TABLE 



*********************************************** 

INCLUDE CPLBIOS1.A86 



ccp: 



cseg 
org 

org 



ccpof f set 
bios code 



********************************************* 

* * 

* BIOS Jump Vector for Individual Routines * 

* * 
********************************************* 



=2500 


E92101 


2624 


jmp 


INIT 


= 2503 


E9C201 


26C8 


jmp 


WBOOT 


= 2506 


E92205 


2A2B 


jmp 


CONST 


=2509 


E92405 


2A30 


jmp 


CONIN 


= 250C 


E92605 


2A35 


jmp 


CONOUT 


= 250F 


E92D05 


2A3F 


jmp 


LI STOUT 


= 2512 


E92F05 


2A44 


jmp 


PUNCH 


= 2515 


E93105 


2A49 


jmp 


READER 


= 2518 


E98E06 


2BA9 


jmp 


HOME 


= 251B 


E9EE05 


2B0C 


jmp 


SELDSK 


= 251E 


E99906 


2BBA 


jmp 


SETTRK 


= 2521 


E99C06 


2BC0 


jmp 


SETSEC 


= 2524 


E99F06 


2BC6 


jmp 


SETDMA 


= 2527 


E9B806 


2BE2 


jmp 


READ 


= 252A 


E9D006 


2BFD 


jmp 


WRITE 


= 252D 


E90A05 


2A3A 


jmp 


LISTST 


=2530 


E99F06 


2BD2 


jmp 


SECTRAN 


= 2533 


E99606 


2BCC 


jmp 


SETDMAB 


= 2536 


E9A705 


2AE0 


jmp 


GETSEGT 


= 2539 


E92005 


2A5C 


jmp 


GETIOBF 


= 253C 


E92205 


2A61 


jmp 


SETIOBF 


= 253F 


E95108 


2D93 


jmp 


RWMOVE 


= 2542 


E99F05 


2AE4 


jmp 


VIDEO 



Enter from BOOT ROM or LOADER 

Arrive here from BDOS call 

return console keyboard status 

return console keyboard char 

write char to console device 

write character to list device 

write character to punch device 

return char from reader device 

move to trk 00 on cur sel drive 

select disk for next rd/write 

set track for next rd/write 

set sector for next rd/write 

set offset for user buff (DMA) 

read a 128 byte sector 

write a 128 byte sector 

return list status 

xlate logical->physical sector 

set seg base for buff (DMA) 

return offset of Mem Desc Table 

return I/O map byte (lOBYTE) 

set I/O map byte (lOBYTE) 

move block of data (* added for 86/80 *) 

direct video output (* added for 86/80 *) 



IF not loader bios 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
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=2545 5E33 
=2547 0000 



=254E 0000 
=2550 0000 



; Segment Table address is placed here immediately after 
; the BIOS jumps to help the loader find the segment table 
; and set it up. 



DW 



OFFSET SEGTABLE 



DBPTR DW 
ENDIF 



IF 

DBPTP EQU 

ENDIF 



loader_bios 
3A00H 



; POINTER TO DATA BLOCK 

(FILLED BY LOADER OR MOVE ROUTINE) 



; (Filled by loader) 



********************************************* 
* 

* INTERPROCESSOR COMMUNICATION ROUTINES 

* 

*************************************************************************** 



EQUATES 



= 0000 


INTZ80 EQU 





= 0002 


GSCR EQU 


2 


= 0080 


BIT? EQU 


80H 


=2549 9D27 


SIOINIT 


DW 


=254B 00 


CONINCHECK 


DB 


=254C 0000 


Z80PKT 


DW 



PORT TO INTERRUPT Z80 
INTERRUPT STATUS PORT 
Z80 INTERRUPT STATUS BIT 



(0 = PENDING) 



TPRTISQ 







LOCATION TO FURNISH INIT TABLE START 

CONSOLE STATUS CHECK 

TEMP STORAGE FOR PACKET ADDRESS 



Z80FLAG AND ZOT MUST BE POSITIONED IMMEDIATELY BEFORE THE 
TYPE 39 INTERRUPT HANDLER SO THAT Z80CCP.CMD CAN REFERENCE 
THEM 

Z80FLAG dw ;Z80 running flag (non-zero if Z80 running) 

ZOT dw ;z80 flag 

INTERRUPT HANDLER FOR TYPE 39 INTERRUPT (Z80 COMMUNICATION) 







TYPE 39 SERV: 








=2552 


50 


PUSH 


AX 




SAVE REGISTERS 


= 2553 


53 


PUSH 


BX 






= 2554 


2E8B1E4725 


MOV 


BX, DBPTR 


/ 


GET POINTER TO DATA BLOCK 


= 2559 


IE 


PUSH 


DS 






= 255A 


33C0 


XOR 


AX, AX 






= 255C 


8ED8 


MOV 


DS,AX 


? 


SET ZERO DS 


= 255E 


8B9FFC02 


MOV 


BX,XZ80PKT[BX] 


f 


GET PACKET POINTER 


=2562 


85DB 


TEST 


BX,BX 






= 2564 


740C 


2572 JZ 


TYPE 39 EXIT 


/ 


IGNORE ZERO FOR PACKET ADDRESS 


= 2566 


2E891E4C25 


MOV 


Z80PKT,BX 


f 


STORE PACKET ADDRESS 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System PAGE 5 

=256B 2EC7065025FF MOV ZOT,TRUE ; SET THE FLAG 

FF 







TYPE 39 EXIT: 






= 2572 


E400 


IN 


AL,INTZ80 


; CLEAR THE INTERRUPT 


= 2574 


IF 


POP 


DS 


; RESTORE DS 


= 2575 


5B 


POP 


BX 


; RESTORE REGISTERS 


= 2576 


58 


POP 


AX 




=2577 


CF 


IRET 










if not loader 


_bios 















interrupt handler for type 44 (line frequency clock) 







type_4 4_serv: 




=2578 


2EC6064B25FF 


mov 


CONINCHECK,0f fh ;set flag 


=257E 


CD64 


int 100 ;see below 


= 2580 
= 


CF 


iret 




= 




; software interrupt for line frequency clock (type 100) 


= 




type_100_serv 




=2581 


CF 


iret 


;user may intercept for use 


= 
= 




endif ;not 


loader__bios 


= 
= 




; SENDPKT - 


SEMD A PACKET TO THE Z80 






; ENTRY: BX 


= POINTER TO PACKET (ABSOLUTE) 






; EXIT: N/A 








SENDPKT: 




= 2582 


IE 


PUSH 


DS 


= 2583 


53 


PUSH 


BX ; SAVE POINTER 


= 2584 


2E8B1E4725 


MOV 


BX,DBPTR 7 POINT TO DATA BLOCK 


= 2589 


33C0 


XOR 


AX, AX 


= 258B 


8ED8 


MOV 


DS,AX ; SET ZERO DS 


= 258D 


8F87FE02 


POP 


WORD PTR XI88PKT[BX] ; STORE PACKET POINTER 






; SIGNAL Z80 


AND WAIT FOR ACKNOWLEDGEMENT 


= 2591 


E600 


OUT 


INTZ80,AL ; INTERRUPT THE Z80 






SENDPKIO: 




=2593 


E402 


IN 


AL,GSCR ; GET Z80 STATUS 


= 2595 


A880 


TEST 


AL,BIT7 ; INTERRUPT STILL PENDING? 


= 2597 


74FA 


2593 JZ 


SENDPKIO ; YES - CHECK AGAIN 


= 2599 


C787FE020000 


MOV 


WORD PTR XI88PKT[BX] ,0 ; ZERO THE PACKET POINTER 


= 259F 


IF 


POP 


DS ; RESTORE DS 


= 25A0 


C3 


RET 





************************************************ 



CP/M ASM86 1.1 SOURCE: CPLBIOS,A86 Customized Basic I/O System 

Routine to wait for an interrupt 
(type 39) from Z80 



PAGE 



— 




— 

= 

= 

= 25A1 


FA 


= 25A2 


2E833E5025FF 


= 25A8 


7404 


= 25AA 


FB 


= 25AB 


F4 


= 2 SAC 


EBF3 


= 25AE 


FB 


= 25AF 


2E8B1E4C25 


= 25B4 
— 


C3 


= 
= 

= 25B5 


IE 


=25B6 


2EA35025 


= 25BA 


2E891E0332 


= 25BF 


33DB 


= 25C1 


8EDB 


= 25C3 


2E8F065833 


= 25C8 


2E8F065A33 


= 25CD 


2E8B1E4725 


= 25D2 


81C38600 


= 25D6 


03D9 


=25D8 


03D9 


= 25DA 


2E890E5C33 


= 25DF 


4B 


= 25E0 


4B 


= 25E1 


58 


=25E2 


8907 


= 25E4 


E2F9 


= 25E6 


2EC706502500 




00 


= 25ED 


E892FF 


= 25F0 


E8AEFF 


= 25F3 


2E8B0E5C33 


= 25F8 


8B07 


= 25FA 


50 


= 25FB 


43 


= 25FC 


43 


= 25FD 


E2F9 


= 25FF 


2EFF365A33 


= 2604 


2E8E1E5833 


= 2609 


2E8B1E0332 



25AE 



WAITZ80: 

cli 

cmp ZOT,TRUE 
je WAITRET 
sti 
hit 

25A1 jmps WAITZ80 

WAITRET: sti 

mov bx,z80pkt 
ret 



PACKER: 



pklp: 



25DF 



2' 92 
25A1 



repak : 



25F8 



? take 

push ds 
mov ZOT^ax 
mov BXHLD^bx 
xor bx,bx 
mov dSrbx 
pop SEGHLD 
pop RTNHLD 
mov bx^DBPTR 
add bx^xpacket 
add bx,cx 
add bx,cx 
mov COUNT, cx 

dec bx 

dec bx 

pop ax 

mov [bx] ,ax 

loop pklp 

mov ZOT, false 

call sendpkt 
call waitz80 
mov cx, COUNT 

mov ax , [bx] 
push ax 
inc bx 
inc bx 
loop repak 

push RTNHLD 
mov ds, SEGHLD 
mov bx,BXHLD 



;no interrupts please 



;must allow interrupts now 
;wait quietly until interrupt 
;loop back until non-zero 
;allow interrupts 
; get packet address 
;bye 



items off the stack and put them 
into the message packet 
Z80 flag set 
save bx 

set zero data segment 

save data segment 
return address 
POINT TO DATA BLOCK 
point to 88 packet 
end of packet 
=bx+2*cx 

save count for later 
loop to do packing 
back up bx 
twice 

get t.o.s. 

pack it 

loop until done 
clear "done" flag 

send packet to z80 
wait if z80 is working 
get the count again 
take stuff out of packet 
and 

push it on the stack 
bump the pointer 
twice 

loop until done 



; restore return and segment 
;restore bx 



CP/M ASM86 1.1 
=260E C3 



SOURCE: CPLBIOS.A86 
ret 



Customized Basic I/O System 



PAGE 



= pmsg: 
=260F 8A07 mov al, [BX] 

=2611 84C0 test al,al 

=2613 740A 261F jz pmretn 

=2615 8AC8 mov CL,AL 

=2617 53 push bx 

=2618 E81A04 2A35 call CONOUT 

=261B 5B pop bx 

=261C 43 inc BX 

=261D EBFO 260F jmps pmsg 

=261F B083 pmretn: mov al,83h 

=2621 E60A out Oah^al 

=2623 C3 ret 



;get next char from message 

;if zero return 

; preserve pointer 
;print it 



;next character and loop 

;make sure that trt is initiallized 



=2624 8CC8 
=2626 BEDS 
=2628 8EC0 



=262A FA 
=262B 8ED0 
=262D BC3039 
=2630 FB 



********************************************* 

* * 

* INIT Entry Point, Differs for LDBIOS and * 

* BIOS, according to "Loader__Bios" value * 

* * 
********************************************* 

INIT: ;print signon message and initialize hardware 

if loader bios ; set up a stack 



cli 

mov ax,cs 
mov ss,ax 

mov sp, offset stkbase 
sti 

push cx 



no interrupts, please 
use cs for stack too 

set up a local stack 
interrupts ok now 



endif 

mov ax,cs 
mov ds,ax 
mov es,ax 



;we entered with a JMPF so use 
;CS: as the initial value for DS : , 
;and ES: 



IF 



not loader bios 



;l I 
; This is a BIOS for the CPM.SYS file. 
; Setup all interrupt vectors in low 
; memory to address trap 
;use local stack during initialization 
cli ;no interrupts while doing the stack 

mov ss,ax ;CS: as the initial value of SS:, 

mov sp, offset stkbase 
sti ; interrupts ok now 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 
=2631 FC 
=2632 51 
=2633 B195 

=2635 E82904 2A61 
=2638 2EC7064E2500 



Customized Basic I/O System 
eld ;set forward direction 

push cx 
mov cl,95H 
call SETIOBF 
mov Z80FLAG,0 



PAGE 





00 


= 263F 
= 


E82D00 


= 

= 
= 

= 
= 

= 2642 


FB 


= 

=2643 


BB6733 


= 2646 
= 


E8C6FF 


=2649 


2E8B1E4725 


= 264E 


IE 


= 264F 


33C0 


= 2651 


8ED8 


=2653 


B90400 


=2656 


F6D4 


=2658 


88A7F002 


=265C 


8887F402 


= 2660 


43 


= 2661 


E2F5 


= 2663 


IF 


=2664 


59 


= 2665 


8AC1 


= 2667 


240F 


= 2669 


A2B724 


=266C 


E991D9 







266F 



set lOBYTE to lst=lpt ,con=crt 
set z80 not running (yet) 
call REVECTOR ; initialize interrupts 
(additional CP/M-86 initialization) 

I 



ENDIF ;not loader bios 



IF loader bios 



260F 



;This is a BIOS for the LOADER 

eld ;set forward direction 

call REVECTOR ;set up interrupts 



ENDIF ;loader bios 
if not loader_bios 

STI 
endif 

mov bx, offset signon 

call pmsg ;print signon message 



;set up track and format tables 
mov bx,dbptr 
push ds 
xor ax, ax 
mov ds^ax 
mov cx,nrdisks 
not ah 

initio: mov xttrack [bx] ,ah 
mov xtformat [bx] ,al 
inc bx 

2658 loop initio ;loop back until done 

pop ds ; restore data seg 



get address of table area 

zero for data seg 

how many disks? 
need ff in ah 

;tracks to ff 
;formats to 00 



pop cx 
if not loader bios 



;restore drive etc 



mov alfCl ;let*s take a look at that drive 

and al,0fh ;make sure it's valid, then ... 

mov byte ptr .curdrvs^al ;store drive for submit files 

end i f ;not loader_bios 
0000 jmp ccp rjump to cold start entry of CCP 

IF loader bios 



CP/M ASMS 6 1.1 SOURCE: 



CPLBIOS.A86 
REVECTOR: 

push ds 



Customized Basic I/O System 
;save data segment 



PAGE 



mov ax,0 

mov ds,ax ;point to segment zero 

;BDOS interrupt offset 
mov bdos_of f set ,bdos ofst 

mov bdos_segment ,CS ;bdos interrupt segment 
(additional LOADER initialization) 
MOV Z80__OPFSET, OFFSET TYPE__39_SERV 

MOV Z80_SEG,cs ;use current code segment 

mov sio of f set-off set I232RX 
mov sio seg,cs 

mov sio2_of f setrOf f set I232RX2 
mov sio2_seg,cs 

pop ds ; restore data segment 

ret 



(why not? 



ENDIF ; loader bios 



=266F IE 



=2670 E84801 
=2673 32D2 
=2675 BF1600 
=2678 CD28 
=267A BFOCOO 
=267D CD28 
=267F FA 

=2680 B80000 
=2683 8ED8 
=2685 8EC0 



27BB 



=2687 
= 268D 
=2691 
=2697 
=269B 
=26A1 
=26A5 
= 26AB 
= 26AF 
= 26B5 
=26B9 
= 26BF 



C7068003060B 

8C0E8203 

C7069C005225 

8C0E9E00 

C706B0007825 

8C0EB200 

C70690018125 

8C0E9201 

C7069000CC28 

8C0E9200 

C7069400EA28 

8C0E9600 



IF not loader bios 
; SET UP INTERRUPT VECTORS 
REVECTOR: 

push ds ;save the DS register 

*** 
** 
** 
** 
** 
** 
** 
** 



** Firmware initializing 

call P232CHEK 
xor dl,dl 
mov di,16h 
int 40 
mov dirOch 
int 40 
cli 

it*iciciciei(icic1c1cicicicicicicie*ic1c1c1cic*ic1ticicicic1cicicic1c1t*icic1cic1c1eicie1ci(* 

mov ax,0 
mov ds,ax 

mov es,ax ;set ES and DS to zero 

;BDOS offset to proper interrupt 
mov bdos_of f set rbdos_of St 
MOV BDOS_S FOMENT , CS 

MOV Z80__OFFSET, OFFSET TYPE_39_SERV 

MOV Z80_SEG,cs ;use current code segment (why not?) 

mov tp__44_of f set ,of f set type_44_serv 
mov tp_44_seg,cs 

mov tp_100_of f set ,of f set type_100_serv 

mov tp_100_seg ,cs 

mov sio_of f set rOf f set I232RX 

mov sio__seg,cs 

mov sio2_of fset,of f set I232RX2 
mov sio2__segrCS 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
=26C3 FB STI ; RE-ENABLE INTERRUPTS 

=26C4 IF pop ds ; restore the DS register 

=26C5 E91D01 27E5 jmp P232INIT ;initialize sio 

= ENDIF ;not loader bios 
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=26C8 2EC7064E2500 
00 

=26CF E89DFF 266F 
=26D2 E931D9 0006 



WBOOT: mov Z80FLAG , f alse 
call revector 



jmp ccp+6 



;set z80 not running 
;direct entry to CCP at command level 



=26D5 8AC1 
=26D7 BFOOOO 
=26DA 06 
=26DB CD28 
=26DD 07 
=26DE C3 



=26DF 
= 26E0 
=26E3 
= 26E5 
= 26E7 
= 26E9 

= 26F0 
= 26F2 
=26F3 
= 26F6 
= 26F8 
= 26FA 
= 26FC 
= 2701 
= 2704 
= 270A 
=270F 
= 2710 
= 2711 



06 

BF0200 
CD28 
84C9 
74F7 

2EF7064E25FF 
FF 

741E 
50 

BF0400 
CD28 
33DB 
8EC3 

2E8B1E4725 
80E101 

2680A7E702FE 

26088FE702 

58 

07 

C3 



********************************************* 

* * 

* CP/M Character I/O Interface Routines * 

* * 
********************************************* 

TERMINAL DEVICE DRIVERS 
CRTOUT: 



MOV 

MOV 

PUSH 

INT 

POP 

RET 

CRTIN: 

PUSH 
CRTINl: MOV 



26E0 
2710 



AL,CL 

DI,0 

ES 

40 

ES 



ES 

DI,2 
40 

CL,CL 
CRTINl 



INT 
TEST 
JZ 

test z80flag,true 



; Move character for output 
; Function code 



; Function code 

Character available? 

No - retry 
Is Z80 running? 

; go away if not 



jz CRTIN2 
push ax 
mov di,4 
int 40 
xor bx,bx 
mov es,bx 
mov bx^DBPTR 
and cl,BIOCS 

and esrbyte ptr xcsf lag [bx] ,not BIOCS ;clear status flag 
or es:byte ptr xcsf lag [bx] , cl 
pop ax 
CRTIN2: pop es 

RET ; Return character in AL 



CRTSTI: 



CP/M ASM86 1.1 
=2712 BF0400 
=2715 06 
=2716 CD28 
=2718 07 
=2719 8AC1 
=271B C3 



SOURCE: CPLBIOS.A86 Customized Basic 1/0 System 

MOV DI,4 ; Function code 

PUSH ES 

INT 40 

POP ES 

MOV AL,CL ; Move status for return 

PET 
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CRTSTO: 



=271C BOFF 
=271E C3 



= 0080 



0020 
0020 
0020 



0043 
0042 
0022 



= 0007 



MOV AL,0FFH 
RET 



; Always ready 



SERIAL I/O ROUTINES FOR DEC RAINBOW 100 



HIPAR EQU 80H 

CONTROL BLOCK OFFSETS 



; HIGH PARITY BIT 





0000 


QTPORT 


EQU 


BYTE 


PTR 









• CONTROL PORT ADDRESS 




0001 


QTFLAGS 


EQU 


BYTE 


PTR 


1 






• DEVICE FLAGS (SEE MEANINGS BELOW) 




0002 


QTNRCHR 


EQU 


BYTE 


PTR 


2 






NR. OF CHARACTERS CURRENTLY IN BUFFER 




0003 


QTCAP 


EQU 


BYTE 


PTR 


3 






' BUFFER CAPACITY IN BYTES (CONSTANT) 




0004 


QTINPTR 


EQU 


BYTE 


PTR 


4 






BUFFER INPUT POINTER 




0005 


QTOTPTR 


EQU 


BYTE 


PTR 


5 






• BUFFER OUTPUT POINTER 




0006 


QTDEND 


EQU 


BYTE 


PTR 


6 






• OFFSET OF LAST DATA BYTE (CONSTANT) 




0007 


QTDEVID 


EQU 


7 










' OFFSET OF PHYS DEVICE ID FOR ERROR MESSAGE 




OOOA 


QTDATA 


EQU 


10 










• BUFFER DATA AREA 






; BIT ASSIGNMENTS FOR "QTFLAGS" 






0001 


QMSUSP 


EQU 


1 




• 1 




OUTPUT SUSPENDED 




0002 


QMTYPE 


EQU 


2 




• 




XON/XOFF, PARITY ERROR CHECKING 




0004 


QMINIT 


EQU 


4 




' 1 




DEVICE REQUIRES INITIALIZATION 




0008 


QMISUSP 


EQU 


8 




' 1 




INPUT SUSPENDED 




0010 


QMBREAK 


EQU 


lOH 




' 1 




BREAK DETECTED 



BUFFER LENGTHS IN CONTROL BLOCKS 



QKPRTBL EQU 32 
QKCOMBL EQU 3 2 

QKC0M2BL EQU 32 



CONTROL PORT ADDRESSES 



QPPRT EQU 43H 
QPCOM EQU 42H 
QPC0M2 EQU 22H 



PRINTER CONTROL BLOCK 
COMM PORT CONTROL BLOCK 
OPTIONAL COMM PORT CTL BLOCK 



PRINTER PORT 
COMM PORT 

OPTIONAL COMM PORT 



ASCII CONTROL CHARACTERS 
QKBEL EQU 7 ; BEL 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
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0011 


QKXON EQU 


17 ; XON (CTL-Q) 




0013 


QKXOFF EQU 


19 ; XOFF (CTL-S) 




0091 


QKXONP EQU 


17+HIPAR 


; XON+ (CTL-Q) 




A A ft O 

0093 


QKXOFFP EQU 


19+HIPAR 


; XOFF+ (CTL-S) 





OOIA 


QKSUB EQU 


26 ; SUB 


= 




; SIO STATUS BITS - RRO 






0001 


QMRXR EQU 


1 


• RECEIVED CHAR. READY 




0004 


QMTXR EQU 


4 ; 


• TRANSMIT READY 


_ 


0080 


QMBRK EQU 


80H 


• BREAK 


= 




• SIO STATUS BITS - RRl 






A A 1 A 
UUlU 


QMPARE EQU 


lOH ; PARITY ERROR 




A A O A 


QMOVRE EQU 


2 OH ; OVERRUN ERROR 


= 




; SIO COMMANDS 


- WRO 






0038 


QKEOI EQU 


38H 


? END OF INTERRUPT 




0018 


QKCHRST EQU 


18H 


' CHANNEL RESET 




0030 


QKRESERR EQU 


30H 


• RESET ERRORS 




0010 


QKRESI EQU 


lOH 


' RESET EXT/STATUS INT. 






; SIO COMMANDS 


- WRl 






A A 1 O 

UUlo 


QMMRXI EQU 


18H ; INTERRUPT ON ALL RX CHAR. 


— 




; 

; SIO COMMANDS 


- WR3 




= 


0040 


QMR7BIT EQU 


4 OH ; RX 7 BITS/CHAR 




ooco 


QMR8BIT EQU 


OCOH ; RX 8 BITS/CHAR 


_ 


0001 


QMMRXE EQU 


1 ; RX ENABLE 


= 




; SIO COMMANDS 


- WR4 




= 


0040 


QMMX16 EQU 


4 OH 


} X16 CLOCK 




oooc 


QMMST2 EQU 


OCH 


' 2 STOP BITS 




0004 


QMMSTl EQU 


4 


• 1 STOP BIT 






; SIO COMMANDS 


- WR5 






0080 


QMMDTR EQU 


80H 


' DTR ON 




0002 


QMMRTS EQU 


2 


] RTS ON 




0008 


QMMTXE EQU 


8 


TX ENABLE 




0020 


QMT7BIT EQU 


20H 


? TX 7 BITS/CHAR 




0060 


QMT8BIT EQU 


60H 


? TX 8 BITS/CHAR 



CONTROL BLOCKS FOR EACH DEVICE 



€P/M ASMS 6 1.1 



=271F 
=271F 43 
=2720 04 
=2721 00 
=2722 20 
=2723 OA 
=2724 OA 
=2725 29 
=2726 545459 
=2729 



=2749 
=2749 42 
=274A 06 
=274B 00 
=274C 20 
=274D OA 
=274E OA 
=274F 29 
=2750 505450 
= 2753 



= 2773 
=2773 22 
=2774 02 
=2775 00 
=2776 20 
=2777 OA 
=2778 OA 
=2779 29 
=277A 554331 
= 277D 



SOURCE: CPLBIOS.A86 Customized Basic I/O System 
PRINTER CONTROL BLOCK 



TPRTCB 



RS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
RS 





QPPRT 
QMINIT 


QKPRTBL 
QTDATA 
QTDATA 



PORT ADDRESS 
USES XON/XOFF 
NUMBER OF CHARS, 
CAPACITY 
INPUT POINTER 
OUTPUT POINTER 
QTDATA- 1 +QKPR TBL 
'TTY' ; DEVICE ID 
QKPRTBL ; DATA BUFFER 



OFFSET OF LAST DATA BYTE 



COMM PORT CONTROL BLOCK 

TCOMCB RS 

DB QPCOM ; PORT ADDRESS 

DB QMTYPE+QMINIT ; NO XON/XOFF 

DB ; NUMBER OF CHARACTERS 

DB QKCOMBL ; CAPACITY 

DB QTDATA ; INPUT POINTER 

DB QTDATA ; OUTPUT POINTER 

DB QTDATA-l+QKCOMBL ; OFFSET OF LAST DATA BYTE 

DB 'PTP' ; DEVICE ID 

RS QKCOMBL ; DATA BUFFER 

OPTIONAL COMM PORT CONTROL BLOCK 



TC0M2CB RS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
RS 





QPCOM 2 ; 
QMTYPE ; 


QKC0M2BL 
QTDATA ; 
QTDATA ; 



QTDATA--1+QKC0M2BL 
'UCl* ; 
QKC0M2BL 



PORT ADDRESS 

NO XON/XOFF 

NUMBER OF CHARACTERS 

; CAPACITY 
INPUT POINTER 
OUTPUT POINTER 

; OFFSET OF LAST DATA BYTE 
DEVICE ID 
DATA BUFFER 



= 279D 

=279D 18 

=279E 14 

=279F 4C 

=27A0 13 

=27A1 41 

=27A2 15 



INITIALIZATION SEQUENCES FOR SIO 
PRINTER PORT 



TPRTISQ RS 
DB 
DB 
DB 
DB 
DB 
DB 



QKCHRST 

4+QKRESI 

QMMX16+QMMST2 

3+QKRESI 

QMR7BIT+QMMRXE 

5+QKRESI 



CHANNEL RESET 
WR4 

X16 CLOCK, 2 STOP BITS 
WR3 

RX ENABLE, 7 BITS/CH 
WR5 



CP/M ASMS 6 1. 
=27A3 AA 



SOURCE: CPLBIOS.A86 
DB 



Customized Basic I/O System 
QMMDTR+QMMRTS+QMT7BIT+QMMTXE 
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TX ENABLE, 7 BITS, RTS , DTR 



= 27A4 


11 


TPRTISI DB 


1+QKRESI 


; 


WRl 


= 27A5 


18 


DB 


QMMRXI 


; 


INTERRUPT ON ALL RX CHAR 


= 27A6 


00 


DB 





; 


END OF SEQUENCE 


= 
= 




; 

; COMM PORT 








= 27A7 




; 

TCOMISQ RS 









= 27A7 


18 


DB 


QKCHRST 


/ 


CHANNEL RESET 


= 27A8 


14 


DB 


4+QKRESI 


? 


WR4 


= 27A9 


44 


DB 


QMMX16+QMMST1 




X16 CLOCK, 1 STOP BIT 


= 27AA 


13 


DB 


3+QKRESI 


r 


WR3 


= 27AB 


CI 


DB 


QMR8BIT+QMMRXE 


t 


RX ENABLE, 8 BITS/CH 


= 27AC 


15 


DB 


5+QKRESI 


/ 


WR5 


= 27AD 


EA 


DB 


QMMDTR+QMMRTS+QMT8BIT+QMMTXE ; TX ENABLE, 8 BITS, 


= 27AE 


11 


TCOMISI DB 


1+QKRESI 


f 


WRl 


= 27AF 


18 


DB 


QMMRXI 


r 


INTERRUPT ON ALL RX CHAR 


= 27B0 
= 


00 


DB 





? 


END OF SEQUENCE 


— 




; 

; OPTIONAL COMM 


PORT 






= 

= 27B1 




; 

TC0M2ISQ 


RS 






= 27B1 


18 


DB 


QKCHRST 




CHANNEL RESET 


= 27B2 


14 


DB 


4+QKRESI 




WR4 


= 27B3 


44 


DB 


QMMX16+QMMST1 




X16 CLOCK, 1 STOP BIT 


= 27B4 


13 


DB 


3+QKRESI 




WR3 


= 27B5 


CI 


DB 


QMR8BIT+QMMRXE 




RX ENABLE, 8 BITS/CH 


=27B6 


15 


DB 


5+QKRESI 




WR5 


= 27B7 


EA 


DB 


QMMDTR+QMMRTS+QMT8BIT+QMMTXE ; TX ENABLE, 8 BITS, 


= 27B8 


11 


DB 


1+QKRESI 




WRl 


= 27B9 


18 


DB 


QMMRXI 




INTERRUPT ON ALL RX CHAR 


=27BA 


00 


DB 







END OF SEQUENCE 



RTS, DTR 



RTS, DTR 



P232CHEK - CHECK RS232 (SIO) PORTS 

FUNCTION: CHECK TO SEE IF LAST CHARACTER HAS BEEN SENT FROM PORT IF 
INITIALIZATION IS REQUIRED. 

ENTRY AND EXIT PARAMETERS: N/A 



PRINTER CONTROL BLOCK 









P232CHEK: 






=27BB 


BB1F27 




MOV 


BX, OFFSET 


TPRTCB 


= 27BE 


E80C00 


27CD 


CALL 


P232CHK 


; CHECK 


= 27C1 


BB4927 




MOV 


BX, OFFSET 


TCOMCB 


=27C4 


E80600 


27CD 


CALL 


P232CHK 


; CHECK 


=27C7 


BB7327 




MOV 


BX, OFFSET 


TC0M2CB 


= 27CA 


E90000 


27CD 


JMP 


P232CHK 


; CHECK 



; COMM CONTROL BLOCK 

; OPT COMM CONTROL BLOCK 



P232CHK - CHECK AN SIO PORT 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
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FUNCTION: CHECKS AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK. 
TO SEE IF THE LAST CHARACTER HAS BEEN SENT BEFORE DOING INITILAZATION . 
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED. 









/ CiiM X IvX • 















BX = 


POINTER TO CONTROL RLOPK 










• PYTT • N/A 













tr £. O 4&V^n£\. • 






= 2 7CD 






1 1!iD X 


nTPT zilPQ Try 1 hmymtt 


X IN X X X r\Xj X Zi r\ X X WIN £\£i\^U X ivijL/ i 




7 1 




U IN a 


P9 "5 9rwi n 

It Z J ZV^nX U 


X £i O 








KEi 1 




. PT QP PPTFTPM 








poo OPHI n • 








ftAl 7 




Ww V 


L/Xj ^ y X JrvJrvX [DA J 


► nPT POPT ArinppQ<? 


=27D6 


32F6 




XOR 


DH,DH 


' MAKE 16 BIT ADDR 


=27D8 


33C9 




XOR 


CX,CX 


ZERO THE COUNTER 








P232CH30: 






=27DA 


BOOl 




MOV 


AL,1 


• CONTROL REGISTER 1 


= 27DC 


EE 




OUT 


DX,AL 


SEND IT TO PORT 


= 27DD 


EC 




IN 


AL.DX 


• READ IT 


= 27DE 


2401 




AND 


AL,1 


• CHECK FOR LAST 


= 27E0 


7502 


27E4 


JNZ 


P232CH20 


• GO AWAY IF OK 


= 27E2 


E2F6 


27DA 


LOOP 


P232CH30 


LOOP UNTIL TIMOUT 








P232CH20: 






=27E4 


C3 




RET 







P232INIT - INITIALIZE RS232 (SIO) PORTS 

FUNCTION: INITIALIZES ALL RS232 PORTS FOR WHICH INITIALIZATION 
IS REQUIRED. 

ENTRY AND EXIT PARAMETERS: N/A 



P232INIT: 



= 27E5 


BB1F27 




MOV 


BX, OFFSET 


TPRTCB 


; PRINTER CONTROL BLOCK 


= 27E8 


BEA427 




MOV 


SI, OFFSET 


TPRTISI 


; PRINTER INIT SEQUENCE 


= 27EB 


E81200 


2800 


CALL 


P232IPR 




INITIALIZE 


= 27EE 


BB4927 




MOV 


BX, OFFSET 


tcomcb' 


; COMM CONTROL BLOCK 


= 27F1 


BEAE27 




MOV 


SI, OFFSET 


TCOMISI 


; COMM INIT SEQUENCE 


= 27F4 


E80900 


2800 


CALL 


P232IPR 




INITIALIZE 


= 27F7 


BB7327 




MOV 


BX, OFFSET 


TC0M2CB 


; OPT COMM CONTROL BLOCK 


= 27FA 


BEB127 




MOV 


SI, OFFSET 


TC0M2ISQ 


; OPT COMM INIT SEQUENCE 


= 27FD 


E90000 


2800 


JMP 


P232IPR 


1 


INITIALIZE 



P232IPR - INITIALIZE AN SIO PORT 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
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FUNCTION: INITIALIZES AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK. 
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED. 
(DOES NOT INITIALIZE BAUD RATES.) 



ENTRY: 



BX = POINTER TO CONTROL BLOCK 
SI = POINTER TO INITIALIZATION SEQUENCE 
(SEQUENCE ENDS WITH A ZERO BYTE) 



=2800 F6470104 
=2804 7501 
=2806 C3 

=2807 8A17 
=2809 32F6 
=280B FC 

=280C AC 

=280D 84C0 

=280F 7501 

=2811 C3 

=2812 EE 
=2813 EBF7 



2807 



EXIT : N/A 
P232IPR: 

TEST 
JNZ 
RET 
P232IP10: 

MOV 
XOR 
CLD 
P232IP20: 

LODSB 
TEST 
2812 JNZ 
RET 
P232IP30: 

OUT 

280C JMPS 



QTFLAGS[BX1 ,QMINIT 
P232IP10 



DL,QTPORT[BX] 
DH.DH 



AL.AL 
P232IP30 



DX,AL 
P232IP20 



INITIALIZATION REQUIRED? 

YES 
ELSE RETURN 

GET PORT ADDRESS 
MAKE 16 BIT ADDR 
SET FORWARD DIRECTION 

GET A BYTE 
END OF SEQUENCE? 
NO 

EXIT IF END 

SEND IT TO PORT 
GET NEXT BYTE 



P232IN - READ A CHARACTER 



RETURNS ONE BYTE FROM CIRCULAR BUFFER FOR A SPECIFIED 
WAITS IF THE BUFFER IS EMPTY. IF XOFF HAS SUSPENDED INPUT, 



FUNCTION 
DEVICE. 

AND THE BUFFER IS EMPTY, SEND AN XON. 
ENTRY : 











BX = 


POINTER TO CONTROL BLOCK 










; EXIT: 
















AL = 


CHARACTER 










P232IN: 








=2815 


8A4702 






MOV 


AL,QTNRCHR[BX] 


GET NUMBER OF CHARS. IN BUFFER 


=2818 


84C0 






TEST 


AL,AL 


• IS IT ZERO? 


=281A 


74F9 


2815 




JZ 


P232IN 


► LOOP BACK IF SO 


=281C 


FA 






CLI 




• DISABLE WHILE MANIPULATING BUFFER 


=281D 


FE4F02 






DEC 


QTNRCHR[BX] 


• DECREMENT CHARACTER COUNT 


=2820 


7526 


2848 




JNZ 


P232IN1 


• JUMP AHEAD IF NOT ZERO ** 


=2822 


FB 






STI 




• TURN ON INTERRUPTS ** 


=2823 


2EF687010002 






TEST 


CS:QTFLAGS[BX] ,QMTYPE 


' DO WE SUPPORT XON? ** 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 



= 2829 


7 5 ID 


2848 




.TN7 

U LN £i 


P232IN1 


• NO. SKIP AHEAD 


it Ic 


= 282B 


2EF68701000R 








CS:QTFLAGS[BX] ,QMISUSP ; 


YES. IS INPUT SUSPENDED? 


It It 


=2831 


741 R 


^ O 4 






P232IN1 


' NO, BUFFER IS JUST EMPTY 


1c It 








1^ £t -J 4L. X. Vi £, 








it it 


=2833 


2EF6870100m 








CS:QTFLAGS [BX] ,QMSUSP 


' IS OUTPUT SUSPENDED? 


if if 


=2839 


75F8 


2833 




KJ Vt £i 


P232IN2 


• YES, WAIT FOR IT 


itit 


=283B 


2E80A70100F7 






AND 


CS:QTFLAGS [BX] ,NOT QMISUSP ;INPUT NOT SUSPENDED 


*ic 


=2841 


51 






PUSH 




• t TTP ^ 
^ J ) 




=2842 


Bill 






MOV 




UUlirUi AN • • • 


** 


=2844 


E81900 


2860 




CALL 


r £, O £.\J\J X 




** 


=2847 


59 






POP 


CX ) 




** 








P232IN1 








** 


=2848 


FA 






CLI 




• NO MORE INTERRUPTS 


** 


=2849 


8A4705 






MOV 


AL,QTOTPTR[BX] 


• GET OUTPUT POINTER 




= 284C 


32E4 






XOR 


AH, AH 


• MAKE 16 BIT OFFSET 




=284E 


8BF0 






MOV 


SI, AX 


• MOVE TO INDEX REG. 




=2850 


FECO 






INC 


AL 


f INCREMENT OUTPUT POINTER 




=2852 


3A4706 






CMP 


AL,QTDEND[BX] 


• PAST END OF BUFFER? 




=2855 


7602 


2859 




JBE 


P232IN4 


• NO 




=2857 


BOOA 






MOV 


AL,QTDATA 


• SET TO START OF BUFFER 










P232IN4 










=2859 


884705 






MOV 


QTOTPTR[BX] ,AL 


' STORE UPDATED POINTER 




=285C 


8A00 






MOV 


AL,[BX+SI] 


• GET CHARACTER FROM BUFFER 




=285E 


FB 






STI 




• RE-ENABLE 




=285F 


C3 






RET 




• EXIT 
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P2320UT - WRITE A CHARACTER 

FUNCTION: WRITES A CHARACTER TO A SPECIFIED DEVICE. 
ENTRY: 



3S 






; BX = 


POINTER TO CONTROL BLOCK 




SS 






? CL = 


CHARACTER TO BE WRITTEN 










; EXIT: N/A 






S 






P2320UT: 






=2860 


8AE1 




MOV 


AH,CL ; SAVE THE CHARACTER 








P232OUT0: 






=2862 


8A17 




MOV 


DL,QTPORTtBX] 


? GET PORT ADDRESS 


=2864 


32F6 




XOR 


DH,DH 


? MAKE 16 BIT ADDRESS 


=2866 


F6470102 




TEST 


QTFLAGS [ BX ] , QMTYPE 


• OK TO SEND XOFF? 


=286A 


7509 


2875 


JNZ 


P2320UT1 


f YES 


=286C 


8AC4 




MOV 


AL,AH 1 


' GET CHARACTER FOR TESTS 


=286E 


247P 




AND 


AL,07FH ; 


► STRIP PARITY 


=2870 


3C13 




CMP 


AL,QKXOFF ; 


• IS IT XOFF? 


=2872 


7501 


2875 


JNE 


P2320UT1 ; 


• NO - SEND IT 


=2874 


C3 




RET 




EXIT WITHOUT SENDING 


s 






P2320UT1: 






=2875 


33C9 




XOR 


CX,CX ; INIT TIMEOUT LOOP COUNTER 








P2320UT2: 







CP/M ASM86 1.1 


SOURCE: 


CPLBIOS.A86 


Customized Basic I 


= 2877 


EC 




IN 


AL.DX 


=2878 


A804 




TEST 


AL^QMTXR 


=287A 


7522 


289E 


JNZ 


P2320UT3 


=287C 


51 




PUSH 


CX 


=287D 


59 




POP 


CX 


=287E 


E2F7 


2877 


LOOP 


P2320UT2 


=2880 


50 




PUSH 


AX 


=2881 


53 




PUSH 


BX 


=2882 


8B4707 




MOV 


AX,QTDEVID[BX] 


=2885 


2EA35233 




MOV 


P232T01 ,AX 


= 2889 


8A4709 




MOV 


AL,QTDEVID+2 [BX] 


=288C 


2EA25433 




MOV 


P232T02,AL 


=2890 


BB4533 




MOV 


BX, OFFSET P232TO 


=2893 


E879FD 


260F 


CALL 


PMSG 


=2896 


E87306 


2F0C 


CALL 


KQERY 


=2899 


5B 




POP 


BX 


=289A 


58 




POP 


AX 


=289B 


74C5 


2862 


JZ 


P232OUT0 


=289D 


C3 




RET 










P2320UT3: 




= 289E 


F6470101 




TEST 


QTFLAGS [BX] ,QMSU 


=28A2 


75FA 


289E 


JNZ 


P2320UT3 


= 28A4 


80EA02 




SUB 


DL,2 


= 28A7 


8AC4 




MOV 


AL,AH 


= 28A9 


EE 




OUT 


DX,AL 


= 28AA 


C3 




RET 





System 



=28AB 8A4702 
=28AE 84C0 
=28B0 7501 
=28B2 C3 

=28B3 BOFF 
=28B5 C3 



GET PORT STATUS 
TX READY? 

YES - DO IT 
THESE 2 INSTRUCTIONS ARE FILLERS 

TO MAKE A VALID TIMEOUT 
TRY IT AGAIN IF NO TIMEOUT YET 
TIMEOUT - SOMETHING'S WRONG WITH 

UART 

PUT DEVICE ID INTO MESSAGE 



WRITE TIMEOUT MESSAGE 
GET USER OPTION 
SUBROUTINE WILL NOT RETURN IF CTL 

TRY AGAIN IF SPACE BAR 

PRETEND IT'S OK IF ANY OTHER KEY 

IS OUTPUT SUSPENDED? 

YES - WAIT UNTIL ENABLED 
POINT TO DATA PORT 
GET CHARACTER 
SEND IT 
EXIT 



P232STI 



RETURN INPUT STATUS 



FUNCTION: RETURNS A VALUE INDICATING WHETHER AN INPUT CHARACTER 
IS AVAILABLE FROM A SPECIFIED DEVICE. 



ENTRY: 



EXIT: 



BX = POINTER TO CONTROL BLOCK 



AL = IF NO CHARACTER IS READY (BUFFER EMPTY) 

AL = X'FF' IF ONE OR MORE CHARACTERS ARE READY 



P232STI: 



28B3 



P232STI1: 



MOV 
TEST 
JNZ 
RET 
L: 
MOV 
RET 



AL,QTNRCHR[BX] 

AL,AL 

P232STI1 



AL^OFFH 



GET CURRENT NR OF CHARS. 
IS IT ZERO? 
NO 

RETURN "NOT READY" 
SET "READY" 
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; P232STO - RETURN OUTPUT STATUS 

; FUNCTION: RETURNS A VALUE INDICATING WHETHER THE SPECIFIED DEVICE 
; READY TO ACCEPT AN OUTPUT CHARACTER. 

; ENTRY: 

BX = POINTER TO CONTROL BLOCK 

; EXIT: 

; AL = IF DEVICE IS NOT READY TO ACCEPT A CHARACTER 

AL = X'FF' IF DEVICE IS READY TO ACCEPT A CHARACTER 



P232STO: 



= 28B6 


8A17 




MOV 


DL,QTPORT[BX] 


; GET PORT ADDRESS 


= 28B8 


32F6 




XOR 


DH,DH 


; MAKE 16 BIT ADDRESS 


= 28BA 


EC 




IN 


AL,DX 


; GET PORT STATUS 


= 28BB 


2404 




AND 


AL,QMTXR 


; IS TX READY? 


= 28BD 


7501 


28C0 


JNZ 


P232ST01 


; YES 


= 28BF 


C3 




RET 




; RETURN "NOT READY" 








P232ST01: 






= 28C0 


32C0 




XOR 


AL,AL 


; SET "NOT READY" VALUE 


= 28C2 


F6470101 




TEST 


QTFLAGS[BX] ,QMSUSP 


; IS OUTPUT SUSPENDED? 


= 28C6 


7401 


28C9 


JZ 


P232ST03 


; NO 


= 28C8 


C3 




RET 




; RETURN "NOT READY" 








P232ST03: 






= 28C9 


F6D0 




NOT 


AL 


; SET "READY" 


= 28CB 


C3 




RET 







I232RX - HANDLE SIO RECEIVE INTERRUPTS 

FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS. 
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR. 



ENTRY AND EXIT PARAMETERS: N/A 









I232RX: 






= 28CC 


50 




PUSH 


AX 


; SAVE REGISTERS 


= 28CD 


53 




PUSH 


BX 




= 28CE 


52 




PUSH 


DX 










; POINT TO EACH 


CONTROL BLOCK AND CHECK 


RECEIVER 


= 28CF 


BB1F27 




MOV 


BX, OFFSET TPRTCB 


; PRINTER CONTROL BLOCK 


= 28D2 


E81D00 


28F2 


CALL 


I232RPT 




= 28D5 


BB4927 




MOV 


BX, OFFSET TCOMCB 


; COMM PORT CONTROL BLOCK 








I232RXX: 






=28D8 


E81700 


28F2 


CALL 


I232RPT 










; SEND END-OF-INTERRUPT 




= 28DB 


2E8A970000 




MOV 


DL,CS:QTPORT[BX] 




= 28E0 


80E2FE 




AND 


DL,0FEH 




=28E3 


B038 




MOV 


AL,QKEOI 




=28E5 


EE 




OUT 


DX,AL 
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=28E6 5A 

=28E7 58 

=28E8 58 

=28E9 CF 



=28EA 50 
=28EB 53 
=28EC 52 

=28ED BB7327 
=28F0 EBE6 



RESTORE REGISTERS AND EXIT 
POP DX 
POP BX 
POP AX 
I RET 



I232RX2 



HANDLE OPTIONAL SIO RECEIVE INTERRUPTS 



FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS. 
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR. 

ENTRY AND EXIT PARAMETERS: N/A 



I232RX2: 



PUSH 
PUSH 
PUSH 



AX 
BX 
DX 



28D8 



POINT TO EACH CONTROL BLOCK AND CHECK 
MOV BX, OFFSET TC0M2CB 

JMPS I232RXX 



; SAVE REGISTERS 



RECEIVER 

; COMM PORT CONTROL BLOCK 
;SAVE REGISTERS AND EXIT 



I232RPT 



PROCESS RECEIVED CHARACTER 



FUNCTION: IF A CHARACTER HAS BEEN RECEIVED AT A PORT, READS IT 
AND PLACES IT IN A CIRCULAR BUFFER. IF REQUIRED, PROCESSES 
XON/XOFF PROTOCOL AND SUBSTITUTES A 'SUB' CHARACTER WHEN A 
PARITY ERROR OCCURS. 



ENTRY: 



EXIT: 



BX = POINTER TO CONTROL BLOCK 



N/A 



=28F2 2E8A970000 
=28P7 32F6 
=28F9 EC 
=28FA A801 
=28FC 7501 

=28FE C3 



REGISTER USE: 
AL 
AH 
BX 
DX 



I232RPT: 

MOV 
XOR 
IN 

TEST 

28FF JNZ 
I232RPTX: 

RET 
I232RP05: 



PORT INPUT/OUTPUT 
ERROR STATUS STORAGE 
CONTROL BLOCK POINTER 

PORT ADDRESS AND INPUT POINTER WORKING 



REG. 



DL,CS:QTPORT[BX] 

DH,DH 

AL,DX 

AL,QMRXR 

I232RP05 



GET PORT ADDRESS 
MAKE 16 BIT ADDRESS 
GET PORT STATUS 
RECEIVE READY? 
YES 

EXIT - NO PROCESSING NECESSARY 



CP/M ASM86 1.1 
=28FF A880 
=2901 7409 



SOURCE: 



290C 



CPLBIOS.A86 
TEST 
JZ 



Customized Basic I/O System 

AL,QMBRK • BREAK? 

I232RP10 
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=2903 


2E808F010010 




OR 


CS: QTFLAGS [BX] ,QMBREAK 




SIGNAL IT 


= 2909 


E9D100 


29DD 


JMP 


I232RP40 






= 






; PROCESS A 


RECEIVED CHARACTER 












I232RP10: 








= 290C 


2EF687010010 




TEST 


CS:QTFLAGS [BX] ,QMBREAK 


/ 


DO WE HAVE A BREAK? 


=2912 


7409 


291D 


JZ 


I232RP11 


f 


SKIP IF NOT 


=2914 


2E80A70100EF 




AND 


CS:QTFLAGS [BX] ,NOT QMBREAK ;ELSE CLEAR FLAG 


=291A 


E9C000 


29DD 


JMP 


I232RP40 


t 


AND no AWAY 


= 






I232RP11: 








= 291D 


BOOl 




MOV 


AL,1 




■DHTXTT TO DDI 
JrUiINi iU KKl 


=291F 


EE 




OUT 


DX,AL 




WRITE TO mo 


=2920 


EC 




IN 


AL.DX 




DTTAn DDI 


=2921 


8AE0 




MOV 


AH,AL 






=2923 


B030 




MOV 


AL.QKRESERR 




DI?C1?T CTCS PDDADC / T I? AVfVX 
KtiOEji o±U EjKKUKo \lr ANx; 


=2925 


EE 




OUT 


DX,AL 




=2926 


80EA02 




SUB 


DL,2 


7 


IrUllNi lU UAIA JrUr(i 


=2929 


EC 




IN 


AL,DX 












; CHECK FOP 


RECEIVE ERRORS 






= 292A 


F6C420 




TEST 


AH,QMOVRE 


? 


UVEiKRUN EjKKOK? 


= 292D 


7406 


2935 


JZ 


I232RP12 


# 




= 292F 


2E80A70100FE 




AND 


CS:QTFLAGS[BX] ,NOT QMSUSP 


■ l?XIAt>Tt? OT'IT'DTT'T' /ACCTTMT? VOXT TOCPX 

; CiMAbLiCj UUiFUi (AbbUMb aUN LUoT. } 








I232RP12: 






= 2935 


F6C410 




TEST 


AH,QMPARE 




DZiDTTV PDDnD*? 


=2938 


7402 


293C 


JZ 


I232RP14 






=293A 


BOIA 




MOV 


AL,QKSUB 




CHANGE RX CHAR, TO SUB 








I232RP14: 








=293C 


2EF687010002 




TEST 


CS:QTFLAGS[BX] ,QMTYPE 


? 


AUN/AUrr AirlrLilV^ADljEi f 


=2942 


7530 


2974 


JNZ 


I232RP20 


? 




s 






; PROCESS XON/XOFF PROTOCOL 






= 2944 


84C0 




TEST 


AL , AL 




CHECK FOR NTTLT. 


=2946 


7501 


2949 


JNZ 


I232RP15 




NOT A NULL 


=2948 


C3 




RET 






IGNORE NULL CHARACTERS 








I232RP15: 








=2949 


3C93 




CMP 


AL^QKXOFFP 




IS IT XOFF+? 


=294B 


7404 


2951 


JZ 


I232RP15A 




YES 


= 294D 


3C13 




CMP 


AL,QKXOFF 




IS IT XOFF? 


=294F 


7507 


2958 


JNE 


I232RP16 




NO 








I232RP15A: 








=2951 


2E808F010001 




OR 


CS:QTFLAGS[BX] , QMSUSP 


r 


SUSPEND OUTPUT 


=2957 


C3 




RET 




r 


AND EXIT 


= 






I232RP16: 








=2958 


3C91 




CMP 


AL,QKXONP 




IS IT XON? 


=295A 


7404 


2960 


JZ 


I232RP16A 




NO - STORE IT 


=295C 


3C11 




CMP 


AL^QKXON 




IS IT XON? 


=295E 


7514 


2974 


JNE 


I232RP20 




NO - STORE IT 








I232RP16A: 








=2960 


F6C420 




TEST 


AH,QMOVRE 




WAS THERE AN OVERRUN ERROR? 


=2963 


7508 


296D 


JNZ 


I232RP18 




YES - ASSUME AN XOFF WAS LOST 


=2965 


2EF687010001 




TEST 


CS:QTFLAGS[BX] , QMSUSP 




IS OUTPUT SUSPENDED? 


=296B 


7407 


2974 


JZ 


I232RP20 




NO - STORE XON IN BUFFER 
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=296D 


2E80A70100FE 




AND 


CSrQTFLAGS [BX] ,NOT QMSUSP ; ENABLE OUTPUT 


=2973 


C3 




PET 


; AND EXIT 








; STORE CHARACTER IN BUFFER 




_ 






TOO oppon • 






=2974 


2E8A970200 




WU V 


ni PQ • nT'KTpr'HP r n Y 1 

ULi^v^o SyilNJKV^nK [BAJ 


kdEj 1 INK, Ur v^nAKo • IJN tJUrrljK 


=2979 


2E3A970300 




PMP 


JJJj f V^O • y J- ^^-t [ DA J 




=297E 


744C 




JE 


I232RP'?0 


VP G 


"~ ^ ^ o u 






INC 


CS:QTNRCHR[BX] ; 


INCREMENT CHARACTER COUNT 


=2985 


2E8A970400 




MOV 


DL,CS:QTINPTR[BX] ; 


GET INPUT POINTER 


=298A 


2EFE870400 




INC 


CS:QTINPTR[BX] j 


INCREMENT POINTER 


= 298F 


2E3A970600 




CMP 


DL,CS:QTDEND[BX] ; 


PAST END OF BUFFER? 


=2994 


7206 


299C 


JB 


I232RP26 ; 


NO 


=2996 


2EC68704000A 




MOV 


CS:QTINPTR[BX] ,QTDATA 


' SET TO START OF BUFFER 








I232RP26: 






=299C 


53 




PUSH 


BX 


• NEED TO SAVE POINTER 


=299D 


03DA 




ADD 


BX,DX 


• STORE UPDATED POINTER 


= 299F 


2E88870000 




MOV 


CS: [BX] ,AL 


' STORE CHARACTER 



NOW SEE IF BUFFER IS MORE THAN HALF FULL AND IF XOFF/XON 
IS SUPPORTED. IF BOTH, SEND AN XOFF. 



=29A4 


5B 




POP 


BX 




** 


=29A5 


2EF687010002 




TEST 


CSiQTFLAGS [BX] ,QMTYPE 


• XOFF SUPPORTED? 


** 


= 29AB 


751E 


29CB 


JNZ 


I232RP28 


' GO AWAY IF NOT 


** 


= 29AD 


2E8A970200 




MOV 


DL,CS:QTNRCHR[BX] 


• GET NO. OF CHARACTERS 


** 


=29B2 


02D2 




ADD 


DL,DL 


• DOUBLE IT 


** 


=29B4 


2E3A970300 




CMP 


DL,CS:QTCAP[BX] 


• MORE THAN HALF-FULL? 


** 


=29B9 


7610 


29CB 


JBE 


I232RP28 


GO AWAY IF NOT 


** 








I232RP27: 




' OUTPUT A XOFF 


** 


= 29BB 


2EF687010008 




TEST 


CS:QTFLAGS [BX] ,QMISUSP 


; UNLESS INPUT IS ALREADY SUSP- 


** 


= 29C1 


7508 


29CB 


JNZ 


I232RP28 


• ENDED. 


** 


=29C3 


2E808F010008 




OR 


CS:QTFLAGS [BX] ,OMISUSP 


SUSPEND INPUT 


** 


=29C9 


EBOl 


29CC 


JMPS 


I232RP32 


' OUTPUT IT 


** 








I232RP28: 






** 


= 29CB 


C3 




RET 




• AND EXIT 





ERROR CONDITION ROUTINES 

BUFFER IS FULL, OR HALF-FULL, OR SOMETHING 







I232RP30: 








I232RP32: 




= 29CC 


2E8A970000 


MOV 


DL,CS:QTPORT[BX] 






I232RP33: 




= 29D1 


EC 


IN 


AL,DX 


= 29D2 


A804 


TEST 


AL,QMTXR 


= 29D4 


74FB 


29D1 JZ 


I232RP33 


= 29D6 


B013 


MOV 


AL,QKXOFF 


= 29D8 


80EA02 


SUB 


DL,2 


= 29DB 


EE 


OUT 


DX,AL 


= 29DC 


C3 


RET 





; ENTER HERE FOR XOFF 



AND EXIT 



BREAK CONDITION 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System PAGE 23 



I232RP40: 



= 29DD 


BOlO 


MOV 


AL,QKRESI 


; 


RESET 


BREAK CONDITION 


= 29DF 


EE 


OUT 


DX,AL 








= 29E0 


B030 


MOV 


AL,QKRESERR 


; 


RESET 


ANY OTHER ERRORS 


= 29E2 


EE 


OUT 


DX,AL 








= 29E3 


80EA02 


SUB 


T)L,2 


; 


POINT 


TO DATA PORT 


= 29E6 


EC 


IN 


AL,DX 




CLEAR 


INPUT 


= 29E7 


C3 


RET 











PHYSICAL DEVICE DRIVERS 



=29E8 BB4927 
=29EB E927FE 



PTR: AND PTP: DRIVERS 
PTRIN: 



MOV 

2815 JMP 



BX, OFFSET TCOMCB 
P232IN 



; POINT TO CONTROL BLOCK 



PTPOUT : 



=29EE BB4927 
=29F1 E96CFE 



=29F4 BB4927 
=29F7 E9B1FE 



=29FA BB1F27 
=29FD E915FE 



2860 



PTRST: 



28AB 



MOV 
JMP 



MOV 
JMP 



TTY: DRIVERS 
TTYIN: 

MOV 

2815 JMP 



BX, OFFSET TCOMCB 
P2320UT 



BX, OFFSET TCOMCB 
P232STI 



BX, OFFSET TPRTCB 
P232IN 



; POINT TO CONTROL BLOCK 



; POINT TO CONTROL BLOCK 



; POINT TO CONTROL BLOCK 



=2A00 BB1F27 
=2A03 E95AFE 



TTYOUT : 



2860 



MOV BX, OFFSET TPRTCB 

JMP P2320UT 



; POINT TO CONTROL BLOCK 



=2A06 BB1F27 
=2A09 E99FFE 



TTYSTI : 



28AB 



MOV 
JMP 



BX, OFFSET TPRTCB 
P232STI 



; POINT TO CONTROL BLOCK 



=2A0C BB1F27 
=2A0F E9A4FE 



TTYSTO: 



28B6 



MOV 
JMP 



BX, OFFSET TPRTCB 
P232STO 



; POINT TO CONTROL BLOCK 
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; NULL DEVICE DRIVERS 



PAGE 24 



= OOIA 



=2A12 BOIA 
=2A14 C3 



=2A15 C3 



=2A16 BOFF 
=2A18 C3 

= 2A16 



QKCTLZ EQU 
? 

PNULIN: 



MOV 
RET 



PNULOUT: 



RET 



PNULSTI : 

MOV 
RET 

PNULSTO EQU 



26 



AL, QKCTLZ 



AL.OFFH 
PNULSTI 



END OP FILE (CTL-Z) 

INDICATE END OF FILE 

ACCEPT ALL CHARACTERS 
INDICATE DEVICE READY 



= 29F4 
= 29E8 
= 26D5 



2A00 
2A0C 



=2A19 BB7327 
=2A1C E9F6FD 



=2A1F BB7327 
=2A22 E93BFE 



=2A25 BB7327 
=2A28 E980FE 



; BATCH drivers 

BATST EQU PTRST 
BATIN EQU PTRIN 
BATOUT EQU CRTOUT 



LPT: DRIVERS 

LPTOUT EQU 
LPTSTO EQU 



UCl: DRIVERS 
UCIIN: 

MOV 

2815 JMP 



UCIOUT: 



2860 



UCIST: 



28AB 



MOV 
JMP 



MOV 
JMP 



URl: DRIVERS 



TTYOUT 
TTYSTO 



BX, OFFSET TC0M2CB 
P232IN 



BX, OFFSET TC0M2CB 
P2320UT 



BX, OFFSET TC0M2CB 
P232STI 



; POINT TO CONTROL BLOCK 



; POINT TO CONTROL BLOCK 



; POINT TO CONTROL BLOCK 



= 2A19 URIIN EQU UCIIN 

= 2A25 URIST EQU UCIST 



CP/M ASMS 6 1.1 SOURCE: 



2A12 
2A16 



2A1F 
2A15 



2A15 
2A16 



= 2A4E 
= 2A50 
= 2A52 
=2A54 
= 2A56 
= 2A58 
= 2A5A 



1227 
DF26 
D526 
E829 
EE29 
0C2A 
002A 
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UR2IN 
UR2ST 



EQU 
EQU 



PNULIN 
PNULSTI 



UPl: AND UP2: DRIVERS 



UPlOUT EQU 
UP20UT EQU 



ULl: DRIVERS 

ULIOUT EQU 
ULIST EQU 



UCIOUT 
PNULOUT 



PNULOUT 
PNULSTO 



=2A2B 


2EFF264E2A 


1 

CONST: 


jmp 


word 


ptr 


const jmp 


;console status 


= 2A30 


2EFF26502A 


CONIN: 


jmp 


word 


ptr 


;console input 
coninjmp 




= 2A35 


2EFF26522A 


CONOUT: 


jmp 


word 


ptr 


conout jmp 


;console output 


=2A3A 


2EFF26582A 


LISTST: 


jmp 


word 


ptr 


listst jmp 


;list device status 


= 2A3F 


2EFF265A2A 


LISTOUT 


: jmp 


word 


ptr 


listout jmp 


;output to list device 


= 2A44 


2EFF26562A 


PUNCH : 


jmp 


word 


ptr 


punch jmp 


; output to punch 


= 2A49 


2EFF26542A 


READER: 


jmp 


word 


ptr 


reader jmp 


; input from reader 



;Indirect jump table for I/O 



const^mp 
coninjmp 
conout jmp 
reader jmp 
punchjmp 
listst jmp 
listout jmp 



dw 
dw 
dw 
dw 
dw 
dw 
dw 



CRTSTI 

CRTIN 

CRTOUT 

PTRIN 

PTPOUT 

LPTSTO 

LPTOUT 



=2A5C 2EA00232 
=2A60 C3 



=2A61 2E880E0232 



GETIOBF: 



mov al,IOBYTE 
ret 



SETIOBF: 



mov IOBYTE,cl ;set iobyte 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 

IF NOT LOADER^BIOS 
= • • 



= 2A66 


BF4E2A 




mov < 


di, off set const jmp 




= 2A69 


BE8E2A 




mov 


si^offset : 


Lojtbl 




= 2A6C 


E85700 


2AC6 


call 


cioset 


7 low two bits 


=2A6F 


E86000 


2AD2 


call 


iojset 




; const 


= 2A72 


E85D00 


2AD2 


call 


iojset 




;conin 


= 2A75 


E85A00 


2AD2 


call 


ioj set 




;conout 


= 2A78 


E84B00 


2AC6 


call 


c iose t 




; second two bits 


= 2A7B 


E85400 


2AD2 


call 


ioj set 




5 r eadp r 


= 2A7E 


E84500 


2AC6 


call 


cioset 




7third two bits 


= 2A81 


E84E00 


2AD2 


call 


iojset 




;punch 


= 2A84 


E83F00 


2AC6 


call 


c iose t 




;high two bits 


=2A87 


E84800 


2AD2 


call 


i o j set 




; 1 istst 


= 2A8A 


E84500 


2AD2 


call 


ioj set 




7 listout 


= 2A8D 
= 


C3 




ret 






=2A8E 


U62A 


ioj tbl 


dw 


TTYSTI 


; CONST 




=2A90 


1227 


dw 


CRTSTI 






=2A92 


F429 




dw 


BATST 






=2A94 


252A 




dw 


UCIST 






=2A96 


FA29 




dw 


TTYIN 


;CONIN 




=2A98 


DF26 




dw 


CRT IN 






=2A9A 


E829 




dw 


BATIN 






=2A9C 


192A 




dw 


UCIIN 






— 2A9E 


002A 




dw 


TTYOUT 


;CONOUT 




=2AA0 


D526 




dw 


CRTOUT 






= 2AA2 


D526 




dw 


BATOUT 






= 2AA4 


1F2A 




dw 


UCIOUT 






— TV A^: 






CIW 


TTYIN 


; READER 




= 2AA8 


E829 




dw 


PTRIN 






=2 AAA 


192A 




dw 


URIIN 






=2AAC 


122A 




dw 


UR2IN 






=2AAE 


002A 




dw 


TTYOUT 


; PUNCH 




= 2AB0 


EE29 




dw 


PTPOUT 






=2AB2 


1F2A 




dw 


UPlOUT 






=2AB4 


152A 




dw 


UP20UT 






=2AB6 


0C2A 




dw 


TTYSTO 


;LISTST 




=2AB8 


1C27 




dw 


CRTSTO 






=2 ABA 


0C2A 




dw 


LPTSTO 






=2ABC 


162A 




dw 


ULIST 






=2ABE 


002A 




dw 


TTYOUT 


; LPTOUT 




= 2AC0 


D526 




dw 


CRTOUT 






= 2AC2 


002A 




dw 


LPTOUT 






=2AC4 


152A 




dw 


ULIOUT 
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=2AC6 BB0300 
=2AC9 22D9 
=2ACB 3DB 
=2ACD D0E9 
=2ACF D0E9 
=2AD1 C3 



cioset: ;Set the offsets in bx according to the low two bits in cl 



mov bx,3 
and bl,cl 
add bx,bx 
shr cl,l 
shr clrl 
ret 



;and then rotate cl twice 

;twice the number for offset 
; shift cl right . . . 
; twice 



=2AD2 8B00 
=2AD4 2E89850000 
=2AD9 83C608 
=2ADC 83C702 



=2ADF C3 



=2AE0 BB5E33 
=2AE3 C3 



iojset: ;Move the appropriate entry from the jump list to the indirect 



;l 



mov cs : ax , [bx+si] 
mov cs : [di] ,ax 
add si, 8 
add di,2 



jump table and then increment the pointers 
for the next call 



ENDIF ;not loader_bios 
ret 

GETSEGT: ; return address of physical memory table 
mov bx, off set seg_table 
ret 



=2AE4 
=2AE5 
=2AE6 
= 2AE7 
= 2AE8 
= 2AEB 
= 2AED 
=2AEE 
= 2AF0 
= 2AF1 
= 2AF3 
= 2AF6 
= 2AF9 
=2AFC 
= 2AFF 
= 2B02 
= 2B04 
= 2B07 
= 2B09 
=2B0A 
= 2B0B 



IE 
06 
51 
52 

BF0800 

CD28 

5D 

8EDD 
5E 

8B04 

8B5C02 

8B4C04 

8B5406 

8B7408 

BF1400 

CD28 

BFOAOO 

CD28 

07 

IF 

C3 



turn cursor off 



VIDEO: ;Output video directly to PC-100 via int 40 
push ds 
push es 
push cx 
push dx 
mov di,8 
int 40 
pop bp 
mov ds,bp 
pop si 
mov ax , [si] 
mov bx,2[si] 
mov cx,4[si] 
mov dx,6[si] 
mov si, 8 [si] 
mov di,14h 
int 40 
mov di,Oah 
int 40 
pop es 
pop ds 
ret 



move in the video 



turn cursor on 



INCLUDE CPLBLOK.LIB 
SECTOR BLOCKING/DEBLOCKING 
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0002 
0028 
0003 



0000 
0001 
0002 



Modified for CP/M 86/80 
May 1982 by CPL (PK) 

* * 

* CP/M to host disk constants * 

* * 

jname for byte at BX 

;four disks allowed 

;CP/M allocation size 

;host disk sector size 

;host disk sectors/trk 

;CP/M sects/host buff 



********************************************* 

* * 

* secshf is log2 (hstblk) , and is listed below for 

* values of hstsiz up to 2048. 
* 

* hstsiz hstblk secshf 

* 256 2 1 

* 512 4 2 

* 1024 8 3 

* 2048 16 4 
* 

***************************************************** 

secshf egu 2 ; log2 (hstblk) 

cpmspt equ hstblk * hstspt ;CP/M sectors/track 

secmsk equ hstblk-1 ; sector mask 





0000 


una 


equ 


byte ptr [BX] 




0004 


nrdisks 


equ 


4 




0800 


blksiz 


equ 


2048 




0200 


hstsiz 


equ 


512 




OOOA 


hstspt 


equ 


10 




0004 


hstblk 


equ 


hstsiz/128 




FDOO 


xf rbuf 


equ 


pb2 adr+xdefbuf 



***************************************************** 

* * 

* BDOS constants on entry to write * 

* * 
***************************************************** 

wrall equ ;write to allocated 

wrdir equ 1 
wrual equ 2 



;write to directory 
;write to unallocated 



************************************************ 

* * 

* BDOS function table beginning * 

* * 
************************************************ 

if not loader bios 



0A80 
22EA 



bdos_f tbl 
bdos_dlog 



equ 
equ 



0a80h 
22eah 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 



=2B0C 80F904 
=2B0F 7204 
=2B11 BBOOOO 
=2B14 C3 



endif ;not loader_bios 

************************************************* 

* * 

* The BIOS entry points given below show the * 
;* code which is relevant to deblocking only. * 
. * * 
.***************************************************** 
seldsk: 

cmp cl^nrdisks ;valid disk number? 

2B15 jb seldskl ;go ahead if ok 

mov bx,0 ;else zero bx 

ret ;and let bdos take care of it 

;select disk 

;is this the first activation of the drive? 



seldskl : 



=2B15 2EA0FE2F 
=2B19 3CFF 
=2B1B 7409 
=2B1D F6C201 
=2B20 7510 

=2B22 3AC1 
=2B24 750C 

=2B26 2EC606033000 
=2B2C 2EC606053000 

=2B32 8AC198 
=2B35 2EA2FA2F 
=2B39 B104D2E0 
=2B3D 051330 
=2B40 8BD8 



2B26 
2B32 

2B32 



;which disk? 

;absolutely first activation? 
;go clear host buffer 
;lsb = 0? 



seldsk2 : 



mov al,hstdsk 
cmp alrOffh 
je seldsk2 
test DL,1 
jnz selset 

;if this is the first activation, clear host buff 
cmp alyCl ;but is this the same disk? 

jne selset ;if not, don't 



selset: 



mov hstact,0 
mov unacnt,0 



mov al,cl ! cbw 
mov sekdsk,al 
mov cl,4 I shl al,cl 
add ax, off set dpbase 
mov bx,ax 
if not loader bios 



;put in AX 

;seek disk number 

; times 16 



=2B42 52 
=2B43 53 
=2B44 8B1EEA22 
=2B48 OBDB 

=2B4A 7420 2B6C 

=2B4C 5B 

=2B4D 53 

=2B4E 83C30A 

=2B51 8B1F 

=2B53 OBDB 

=2B55 7424 2B7B 
=2B57 2EC606123000 
=2B5D 81FB5330 
=2B61 7406 2B69 
=2B63 2EC606123002 



;check for Robin media on any 
push dx 
push bx 

mov bx,word ptr .bdos_ 

or bx,bx 

jz seldl 

pop bx 

push bx 

add bx,Oah 

mov bx , [bx] 

or bx,bx 

jz seld2 

mov mediatype,0 

cmp bx,dpbO 

jz seldO 

mov mediatype,2 



unallocated disk called 
;save dx and bx 

dlog ;get allocation vector 

;any allocated? 
;skip ahead if none 
;else find out . . . 

7 

;if this disk has been checked 

;get dpb offset 

;zero? not checked yet 

;go check it if so 

; assume Rainbow 

;is it really? 

;move on if so 

;else mark as Robin 



CP/M ASMS 6 1,1 SOURCE: 


CPLBIOS.A86 Customized 


Basic I/O System 


=2B69 


5B 


seldO: 


pop bx 






• then . . . 


=2B6A 


5A 




pop dx 








=2B6B 


C3 




ret 






•return 


=2B6C 


33C0 


seldl: 


xor ax^ax 




;zero all dpb's 


=2B6E 


BB1D30 




mov bXrOffset dpbase+Oah 


;dpb offset from base 


=2B71 


B90400 




mov cx,nrdisks 




;loop for all disks 


=2B74 


8907 


seldll: 


mov [bx] ^ax 




;zero a dpb 


=2B76 


83C310 




add bx^lOh 




;get the next one 


= 2B79 


E2F9 2B74 




loop seldll 




;loop till done 


=2B7B 


B81500 


seld2: 


mov ax,15h 






'get media type 


= 2B7E 


50 




push ax 






•via packer 


= 2B7F 


2EA0FA2F 




mov al^sekdsk 






•get disk number back again 


=2B83 


B105 




mov cl,5 






and put in proper 


=2B85 


D3C0 




rol axrcl 






position for packet 


=2B87 


50 




push ax 








=2B88 


B90200 




mov 0x^2 






move 2 words 


= 2B8B 


E827FA 25B5 




call packer 








= 2B8E 


58 




pop ax 




;discard drive number 


=2B8F 


58 




pop ax 




;ah has status/media type 


= 2B90 


33DB 




xor bxrbx 




;clean out a register 


= 2B92 


2E88261230 




mov media type, ah 




;mark the media type 


= 2B97 


8ADC 




mov bl^ah 




;get the type (Painbow = 0, robin 




Ol /^OftftOft 

O1C39930 




add bx,mediatbl 




;add the table address 


= 2B9D 


8B17 




mov dx , [bx] 




;get contents of table 


= 2B9F 


5B 




pop bx 




7 


=2BA0 


53 




push bx 




;get dpb pointer 


=2BA1 


83C30A 




add bXrOah 






=2BA4 


8917 




mov [bx] ,dx 




;put address ilnto pointer 


= 2BA6 


5B 




pop bx 




;get return data 


= 2BA7 


5A 




pop dx 












endif ;not loader 


_bios 




= 2BA8 


C3 




ret 












home : 
















;home the selected 


disk 




= 2BA9 


2EA00430 




mov alrhstwrt 




;check for pending write 


= 2 BAD 


84C0 




test al,al 








=2BAF 


7506 2BB7 




jnz homed 








=2BB1 


2EC606033000 




mov hstactfO 




;clear host active flag 






homed : 










= 2BB7 


B90000 




mov cx,0 




?now, set track zero 






? 


(continue HOME routine) 








? 

settrk : 
















;set track given 


by 


registers CX 


= 2BBA 


2E890EFB2F 




mov sektrk,CX 






?track to seek 


= 2BBF 


C3 




ret 
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CPLBIOS. 
setsec : 



A86 
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;set sector given by register cl 

mov seksecrcl ; sector to seek 

ret 



=2BC6 2E890E1030 
=2BCB C3 



setdma : 



;set dma address given by CX 

mov dmc_off,CX 

ret 



=2BCC 2E890E0E30 
=2BD1 C3 



setdmab: 



;set segment address given by CX 

mov dma_seg,CX 

ret 



sectran: 



=2BD2 85D2 
=2BD4 7409 
=2BD6 8BD9 
=2BD8 03DA 
=2BDA 8A1F 
=2BDC B700 
=2BDE C3 



2BDF 



;translate sector number CX with table at [DX] 



test DX,DX 
jz notran 
mov BX,CX 
add BX,DX 
mov BL, [BX] 
mov BH,0 
ret 



;test for hard skewed 

; (blocked must be hard skewed) 



;*** be compatible with 86/80 (fix 5/21/82) *** 



no tran: 











;hard skewed disk, physical = logical sector 


= 2BDF 


8BD9 






mov BX,CX 




= 2BE1 


C3 






ret 










7 

read: 














;read the selected CP/M 


sector 


= 2BE2 


2EC606053000 






mov unacnt,0 


;clear unallocated coun 


= 2BE8 


2EC6060C3001 






mov readop,l 


;read operation 


= 2BEE 


2EC6060B3001 






mov rsflag,l 


;must read data 


= 2BF4 


2EC6060D3002 






mov wrtype,wrual 


;treat as unalloc 


= 2BFA 


E9A800 


2CA5 




jmp rwoper 


;to perform the read 








write: 














;write the selected CP/M 


sector 










if not loader_bios 




= 2BFD 


2EF6061230FF 






test mediatype ,0f fh 


;is this Rainbow media? 


= 2C03 


7413 


2C18 




jz okwrite 


;go write if so 


= 2C05 


BB0B33 






mov bx, off set unabl 


; 'unable to write,..' 


= 2C08 


E804FA 


260F 




call pmsg 


;print it 


= 2C0B 


E89B03 


2FA9 




call prthst 


;print drive no. 


= 2C0E 


BB5432 






mov bx, off set endlin 


? 


= 2C11 


E8FBF9 


260F 




call pmsg 


;print cr,lf. 


= 2C14 


B80100 






mov ax,l 


;mark for error 


= 2C17 


C3 






ret 


; return 



okwr ite: 



CP/M ASMS 6 1.1 SOURCE: 

=2C18 2EC6060C3000 
=2C1E 2E880E0D30 
=2C23 80F902 
=2C26 751E 2C46 



=2C28 2EC606053010 
=2C2E 2EA0FA2F 
=2C32 2EA20630 
=2C36 2EA1FB2F 
=2C3A 2EA30730 
=2C3E 2EA0FD2F 
=2C42 2EA20930 



=2C46 BB0530 
=2C49 8A0784C0 
=2C4D 744A 



CPLBIOS.A86 Customized Basic I/O System 
endif ;not loader__bios 
mov readopfO ;write operation 

mov wrtype^cl 

cmp cl,wrual ;write unallocated? 

jnz chkuna ;check for unalloc 

write to unallocated, set parameters 

mov unacnt , (blksiz/128) ;next unalloc recs 

mov al^sekdsk ;disk to seek 

mov unadsk,al ;unadsk = sekdsk 
mov ax,sektrk 

mov unatrk,ax ;unatrk = sektrk 
mov al,seksec 

mov unasec^al ;unasec = seksec 
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chkuna: 



2C99 



;check for write to unallocated sector 

mov bx, off set unacnt ;point "UNA" at UNACNT 
mov al/Una ! test al,al ;any unalloc remain? 
jz alloc ;skip if not 



=2C4F FEC8 
=2C51 8807 
=2C53 2EA0FA2F 
=2C57 BB0630 
=2C5A 3A07 
=2C5C 753B 



2C99 



=2C5E 2EA10730 

=2C62 2E3B06FB2F 

=2C67 7530 2C99 



more unallocated records remain 
dec al 
mov una,al 
mov al, sekdsk 
mov BX, offset unadsk 
cmp al,una 
jnz alloc 



disks are the same 
mov AX, unatrk 
cmp AX, sektrk 
jnz alloc 



;unacnt = unacnt-1 

;same disk? 

;sekdsk = unadsk? 
;skip if not 



;skip if not 



=2C69 2EA0FD2F 

=2C6D BB0930 

=2C70 3A07 
=2C72 7525 



=2C74 8CD9 
=2C76 8EC1 
=2C78 FC 
=2C79 B92700 
=2C7C BF6230 



2C99 



tracks are the same 
mov al, seksec 

mov BX, offset unasec 

cmp al,una 
jnz alloc 



;same sector? 

;point una at unasec 

;seksec = unasec? 
;skip if not 



match, move to next sector for future ref 
(Code modified for skewed sectors) 



mov cx,ds 
mov es,cx 
eld 

mov cx,cpmspt-l 
mov di,xltO 



; set up ES 

; scan forward 

; set count for scan 

; point to translate table 



CP/M ASMS 6 1.1 
=2C7F F2AE 
=2C81 E306 
=2C83 8A05 
=2C85 8807 
=2C87 EB08 



=2C89 C60700 
=2C8C 2EFF060730 
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2C89 



2C91 



ovf : 



repne scasb 
jcxz ovf 
mov al r [<3i] 
mov una,al 
jmps noovf 

overflow to next track 

mov una^O 
inc unatrk 



scan for sector number 

didn't find it 
get nr of next sector 



;unasec = 
;unatrk=unatrk+l 



noovf : 



=2C91 2EC6060B3000 
=2C97 EBOC 2CA5 



=2C99 2EC606053000 
=2C9F 2EC6060B3001 



=2CA5 2EC6060A3000 
=2CAB 2EA0FD2F 
=2CAF B102 
=2CB1 D2E8 
=2CB3 FECO 
=2CB5 2EA20230 



;match found, mark as unnecessary read 

mov rsflag,0 ;rsflag = 

jmps rwoper ;to perform the write 



alloc: 



;not an unallocated record, requires pre-read 
mov unacnt/0 ;unacnt = 

mov rsflag,l ;rsflag = 1 

;drop through to rwoper 

***************************************** 

* * 

* Common code for READ and WRITE follows * 

* * 
***************************************************** 



rwoper : 



;enter here to perform the read/write 



mov erflagrO 
mov al, seksec 
mov cl, secshf 
shr al,cl 
inc al 

mov sekhst,al 



;no errors (yet) 
;compute host sector 



.*** added for 1-based sectors *** 
;host sector to seek 



=2CB9 BOOl 

=2CBB 2E86060330 

=2CC0 84C0 

=2CC2 7437 2CFB 



=2CC4 2EA0FA2F 

=2CC8 2E3A06FE2F 

=2CCD 7516 2CE5 



=2CCF 2EA1FF2F 

=2CD3 2E3B06FB2F 

=2CD8 750B 2CE5 



active host sector? 

mov al,l 

xchg al,hstact 

test al,al 

jz filhst 



; always becomes 1 
;was it already? 
;fill host if not 



host buffer active, same as seek buffer? 
mov al,sekdsk 

cm.p al,hstdsk ;sekdsk = hstdsk? 

jnz nomatch 

same disk, same track? 
mov ax,hsttrk 

cmp ax,sektrk ;host track same as seek track 

jnz nomatch 



CP/M ASMS 6 1.1 SOURCE: CPLBIOS 



= 2CDA 


2EA00230 


= 2CDE 


2E3A060130 






= 2CE5 


2EA00430 


= 2CE9 


84C0 


= 2CEB 


740E 


= 2CED 


Eo/Bul 


= 2CF0 


2EA00A30 


= 2CF4 


OACO 


= 2CF6 


7403 


=2CF8 


E99700 


= 

= 2CFB 


2EA0FA2F2EA2 




FE2F 


— Zuv) 3 


Z ti Al r D z r El A J 




FF2F 


— ZDUB 


z£AUUZ JuzEAz 




0130 


= 2D13 


2EA00B30 


= 2D17 


84C0 


=2D19 


740E 


= 2D1B 


E8A301 


= 2D1E 


2EA00A30 






=2D24 


7403 


= 2D26 
= 


E96900 


=2D29 


2EC606043000 


= 2D2F 


2EA0FD2F 


= 2D33 


250300 


=2D36 


B107D3E0 


= 2D3A 


2E03064725 


= 2D3F 


05A200 


=2D42 


8BF0 


=2D44 


2E8B3E1030 


=2D49 


1E06 



A86 Customized Basic I/O System 
same disk, same track, same buffer? 
mov alfSekhst 

cmp al,hstsec ;sekhst = hstsec? 

2D2F jz match ;skip if match 

nomatch : 

;proper disk, but not correct sector 
mov al, hstwrt 
test al,al 
jz filhst 
call writehst 
(check errors here) 
mov al, erf lag 
or al,al 
jz filhst 
jmp return_rw 
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2CFB 
2E6B 



2CFB 
2D92 



; "dirty" buffer ? 
;no, don't need to write 
?yes, clear host buff 



;any? 

;skip if none 
;exit if so 



filhst: 



;may have to fill the host buffer 
mov al,sekdsk I mov hstdsk,al 

mov ax,sektrk I mov hsttrk,ax 

mov al,sekhst ! mov hstsec, al 



2D29 
2EC1 



2D29 
2D92 



mov al,rsflag 
test al,al 
jz filhstl 

call readhst 
(check errors here) 
mov al,erflag 
or al,al 
jz filhstl 
jmp return__rw 



filhstl: 
7 

match: 



mov hstwrt, 



;need to read? 
;yes, if 1 



;any? 

;skip if none 
;exit if so 



;no pending write 



;copy data to or from buffer depending on "readop" 
mov al,seksec ;mask buffer number 

and ax,secmsk ;least signif bits are masked 

mov cl, 7 ! shl ax,cl ;shift left 7 (* 128 = 2**7) 

ax has relative host buffer offset 



add ax,dbptr 
add ax, xshrbuf 
mov si, ax 
mov di,dma_off 

push DS I push ES 



; address of data block 
;*** new buffer for CP/M 86/80 *** 
;put in source index register 
;user buffer is dest if readop 

;save segment registers 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
=2D4B 2E8E060E30 
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=2D50 2BC0 
=2D52 BEDS 
=2D54 B98000 
=2D57 2EA00C30 
=2D5B 84C0 
=2D5D 7511 



2D70 



=2D5F 2EC606043001 

=2D65 87F7 

=2D67 8CD8 

=2D69 8EC0 

=2D6B 2E8E1E0E30 

=2D70 E82000 



mov ES,dma seg 



sub ax, ax 
mov ds,ax 
mov cx,128 
mov al,readop 
test al,al 
jnz rwmovx 



;set destseg to the users seg 
;SI/DI and DS/ES is swapped 
;if write op 

;*** added for CP/M 86/80 *** 
;which needs ds=0 (*** end add ***) 
; length of move in bytes 

;which way? 
;skip if read 



2D93 rwmovx: 



write operation, mark and switch direction 

mov hstwrt^l ?hstwrt = 1 (dirty buffer now) 

xchg si,di ;source/dest index swap 

mov ax,DS 

mov ES,ax 

mov DS,dma_seg ; setup DS^ES for write 
call rwmove 



=2D73 071F 



=2D75 2E803E0D3001 
=2D7B 2EA00A30 
=2D7F 7511 



pop ES ! pop DS 



;restore segment registers 



movdone: 



2D92 



=2D81 84C0 

=2D83 750D 2D92 
=2D85 2EC606043000 
=2D8B E8DD00 2E6B 
=2D8E 2EA00A30 

=2D92 C3 



; data has been moved to/from host buffer 

cmp wrtype^wrdir ;write type to directory? 

mov al,erflag ;in case of errors 

jnz return_rw ;no further processing 

r 

; clear host buffer for directory write 

test al ,al ;errors? 

jnz return_rw ;skip if so 

mov hstwrt,0 ;buffer written 

call writehst 

mov al, erf lag 
return_rw: 

ret 

************************************************ 

* this subroutine is made available * 

* for other parts of CP/M. * 
************************************** ********** 



rwmove : 



=2D93 2EF7064E25FF 
FF 

=2D9A 7503 2D9F 
=2D9C E9C800 2E67 

=2D9F 51 



rwml : 



if not loader bios 



Added for PClOO — - RK/CPL 4/13/82 
test Z80FLAG,true ; is z80 running? 



jnz rwml 
jmp move88 

push cx 



;normal move if z80 not running 
;preserve the count 



CP/M ASM86 1.1 


SOURCE: 


CPLBIOS 


.A86 Customized 


= 2DA0 


8BC1 






mov ax^cx 


= 2DA2 


8CDB 






mov bx,ds 


= 2DA4 


8CC2 






mov dx,es 




r /L.Jt5Urr 






test bx,0ff80h 


= 2DAA 


750C 






3 nz n sz 8 Op 


= 2DAC 


B104 






mov clr4 


= 2DAE 


D3E3 






shl bx,cl 


= 2DB0 


03DE 






add bx,si 


= 2DB2 


81FB0008 






cmp bx,800h 


= 2DB6 
= 


7251 


2E09 




jb sz80p 


= 2DB8 


F7C280FF 




nsz80p: 


test dx,0ff80h 


= 2DBC 


7403 


2DC1 


jz nszl 


— 9nm? 
zuoJi 


p Q A c n n 


2E66 




jmp notz80 


= 2DC1 


B104 




nszl : 


mov c 1 f 4 


= 2DC3 


D3E2 






shl dx,cl 


= 2DC5 


03D7 






add dx,di 


= 2DC7 


81FA0008 






cmp dx,800h 


= 2DCB 


7203 


2DD0 




jb dz80p 


= 2DCD 
= 


E99600 


2E66 




jmp notz80 


= 2DD0 


8CDB 




c!z80p: 


mov bx,ds 


= 2DD2 


F7C300F0 






test bx,OfOOOh 


= 2DD6 


/ J U 


2DE4 




jnz dzs88p 


= 2DD8 


B104 






ili\J V \^ X f t 


= 2DDA 


D3E3 






shl bx^cl 


= 2DDC 


03DE 






add bx^si 


= 2DDE 


7204 


2DE4 




jc dzs88p 


= 2DE0 


03D8 






add bx^ax 


= 2DE2 
= 


735D 


2E41 




jnc not88 


= 2DE4 


59 




dzs88p: 


pop cx 


= 2DE5 


81F98000 






cmp cx,128 


= 2DE9 


7603 


2DEE 




jbe dzsl 


= 2DEB 


B98000 






mov cxrl28 


= 2DEE 


IE 




dzsl : 


push ds 


= 2DEF 


51 






push cx 


= 2DF0 


06 






push es 


= 2DF1 


57 






push di 


= 2DF2 


33C0 






xor ax, ax 


= 2DF4 


8EC0 






mov es,ax 


= 2DF6 


BFOOFD 






mov di,xfrbuf 


=2DF9 


E86B00 


2E67 




call move88 


=2DFC 


5F 






pop di 


=2DFD 


07 






pop es 


=2DFE 


8ED8 






mov ds^ax 


=2E00 


BEOOFD 






mov si^xfrbuf 


=2E03 


59 






pop cx 


=2E04 


E83B00 


2E42 




call movz80 


= 2E07 


IF 






pop ds 


=2E08 


C3 






ret 



sic I/O System PAGE 36 

;get the count into accum 
;check the source segment 
;and destination segment 
;out of Z80 private? 
;jump ahead if it is 
;set for shl 
;mult by 16 

;get absolute address for Z80 
;in z80 pvt? 
;jump ahead so 

;source is not z80 private. 

;jump ahead if destination isn't, either 

;set for shl 

;mul dest seg by 16 

;create absolute address 

;dest in z80 pvt? 

? 

;jump ahead if not 

;destination is in z80 pvt, source isn't 
;check for source in 8088 pvt 
;dest z80, source 8088. 



absolute source 

dest z80, source 8088. 

how about the end of the source? 

z80 move if low enough 

dest in z80 pvt, source in 8088 pvt 
is count too big? 

make it maximum if so 
save ds for later 
save count for later 



zero . . . 

the destination segment 
destination is buffer 
move source to buffer 



zero the source segment 
source is buffer 



move buffer to destination after restoring cx 
restore ds 



CP/M ASMS 6 1.1 



= 2E09 


8CC2 


= 2E0B 


F7C200F0 


= 2E0F 


750C 


= 2E11 


B104 


=2E13 


D3E2 


= 2E15 


03D7 


= 2E17 


7204 


= 2E19 


03D0 


= 2E1B 
= 


7324 


=2E1D 


59 


= 2E1E 


81F98000 


= 2E22 


7603 


= 2E24 


B98000 


= 2E27 


IE 


= 2E28 


51 


= 2E29 


06 


= 2E2A 


57 


= 2E2B 


33C0 


= 2E2D 


8EC0 


= 2E2F 


BFOOFD 


= 2E32 


E80D00 


= 2E35 


5F 


= 2E36 


07 


= 2E37 


8ED8 


= 2E39 


BEOOFD 


= 2E3C 


E82800 


= 2E3F 


IF, 


= 2E40 


C3 


= 

=2E41 


59 


= 

= 2E42 


8CDB 


= 2E44 


8CC2 


= 2E46 


51 


= 2E47 


B104 


= 2E49 


D3E3 


= 2E4B 


D3E2 


= 2E4D 


03DE 


= 2E4F 


03D7 


= 2E51 


B82200 


= 2E54 


59 


= 2E55 


50 


= 2E56 


53 


= 2E57 


52 


= 2E58 


51 


= 2E59 


B90400 


= 2E5C 


32C0 


= 2E5E 


E854F7 


= 2E61 


58 


= 2E62 


58 


= 2E63 


58 



SOURCE: CPLBIOS.A86 Customized Bai 
sz80p: mov dx^es 

test dx^OfOOOh 
2E1D jnz d88szp 

mov cl,4 

shl dx,cl 

add dx,di 
2E1D jc d88szp 

add dx^ax 
2E41 jnc not88 



d88szp: 



2E27 



d88sl: 



2E42 



2E67 



pop cx 
cmp 03^,128 
jbe d88sl 
mov cx,128 
push ds 
push cx 
push es 
push di 
xor ax^ax 
mov es^ax 
mov di,xfrbuf 
call movzSO 
pop di 
pop es 
mov ds^ax 
mov si,xfrbuf 
call move88 
pop ds 
ret 



25B5 



not88: pop cx 

movz80: mov bx,ds 
mov dx,es 
push cx 
mov cl,4 
shl bx,cl 
shl dx,cl 
add bx,si 
add dx,di 
mov ax,2 2h 
pop cx 
push ax 
push bx 
push dx 
push cx 
mov cx,0004 
xor al^al 
call packer 
pop ax 
pop ax 
pop ax 
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;source is in z80 pvt, destination isn't 
;check for destination in 8088 pvt 
;dest 8088, source z80. 

r 

;absolute destination 

;source z80, destination 8088. 

;how about the end of the destination? 

;z80 move if low enough 

;dest in z80 pvt, source in 8088 pvt 
;is count too big? 

;make it maximum if so 
;save ds for later 
ysave count for later 



zero ... 

the destination segment 
destination is buffer 
move source to buffer 



zero the source segment 
source is buffer 

move buffer to destination after restoring cx 
restore ds 



;do a z80 move and exit 

;Z80 move to emulate 8088 move 



bx has source absolute 

dx has destination absolute 

function: transfer ... 

to Z80 move routine 

via packer 



4 words stacked 
zero for Z80 wait 
call interface layer 
after return, 
level the stack 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
=2E64 58 
=2E65 C3 

=2E66 59 
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=2E67 FCF3A4 
=2E6A C3 



pop ax 
ret 

notz80: pop cx 
move88 : 

endif 



eld ! rep movs AL,AL 
ret 



;go past 8088 move 

;don't use z80 move 

;continue to normal — end of additiion 

;not loader_bios 

;move as bytes 

;end of move subroutine 



************************************************** 

* * 

* WPITEHST performs the physical write to the host * 

* disk, while READHST reads the physical disk. * 

* * 
***************************************************** 



;| Code added for pclOO, CP/M 86/80 4/13/82 



wr itehst : 



= 2E6B 


B81400 




rewhst : 


mov ax,0014h 




;try once (or retry) 


= 2E6E 


E84901 


2FBA 




call rwhst 




? 


= 2E71 


F6C4FC 






test ah,Ofch 




;check for error 


= 2E74 


7501 


2E77 




jnz wragain 




;try if any error 


= 2E76 


C3 






ret 




;else it's done 








wr again 






; If at first. . . 


= 2E77 


F6C480 






test ah,80h 




;is the drive ready? 


= 2E7A 


7514 


2E90 




jnz wnrdy 




;error if not 


= 2E7C 


F6C440 






test ah,40h 




;is drive wr ite-protected? 


= 2E7F 


7531 


2EB2 




jnz writeprot 




;error if so 


= 2E81 


F6C401 






test ah,l 




;seek error 


= 2E84 


7510 


2E96 




jnz wrsker 




r 


= 2E86 


BBC632 






mov bx, offset 


biwmsg 


;then give up. 


= 2E89 


E883F7 


260F 




call pmsg 




;no sense making a fool of yourself 


= 2E8C 


E8CD00 


2F5C 




call rwerr 




;print messages 


= 2E8F 


C3 






ret 






=2E90 


E87000 


2F03 


wnrdy : 


call notready 




;disk not ready, print message 


= 2E93 


74D6 


2E6B 




jz rewhst 




;try again if so directed 


= 2E95 


C3 






ret 




;else return with error 


= 2E96 


BBDE32 




wrsker : 


mov bx, offset 


skmsg 




= 2E99 


E873F7 


260F 




call pmsg 






=2E9C 


E80A01 


2FA9 




call prthst 




;print drive number 


= 2E9F 


BB3233 






mov bx, off set 


trkmsg 


;print 'track' 


= 2EA2 


E86AF7 


260F 




call pmsg 






= 2EA5 


2EA1FF2F 






mov ax,hsttrk 




;get track number 


= 2EA9 


E8E000 


2F8C 




call decprt 




;print decimal 



CP/M ASM86 1.1 


SOURCE: 


CPLBIOS 


•A86 Customized Basic 


I/O System 


= 2EAC 


E85D00 


2F0C 




call kqery 




= 2EAF 


74BA 


2E6B 




jz rewhst 




;try again? 


= 2EB1 


C3 






ret 




;or return with error 








wr iteprot : 




;disk is wr ite-protected 


= 2EB2 


BB9332 






mov bx. offset 


wpmsg 




= 2EB5 


E857F7 


260F 




call pinsg 


;print error message 


= 2EB8 


E8EE00 


2FA9 




call prthst 




;print which one 


=2EBB 


E84E00 


2F0C 




call kqery 




;check keys 


= 2EBE 


7 4AB 


2E6B 




jz rewhst 




;try again if directed 


= 2EC0 


C3 






ret 




;else return with bios error 


= 






readhst 








= 2EC1 


B81300 




rerhst : 


mov aXf0013h 




;ask interface layer 


= 2EC4 


E8F300 


2FBA 




call rwhst 




7 


= 2EC7 


F6C4FC 






test ah,Ofch 




;check for error 


= 2ECA 


7501 


2ECD 




jnz rdagain 




;jump ahead if error 


= 2ECC 


C3 






ret 




;else you're done 


- 














= 2ECD 


F6C480 






test ah,80h 




;drive ready? 


=2ED0 


750F 


2EE1 




jnz rdnrdy 




;go away if not 


= 2ED2 


F6C401 






test ah r 1 




;seek error? 


= 2ED5 


7510 


2EE7 




nnz rdsker 




;take care of it 


= 2ED7 


BBAF32 








birmsg 


;then give up. 


= 2EDA 


E832F7 


260F 




pall DTTisa 




;print an error message 


= 2EDD 


E87C00 


2F5C 




call rwerr 




;print messages 


=2EE0 


C3 






ret 






= 2EE1 


E81F00 


2F03 


rdnrdy : 


call notready 




;not ready — print message. 


= 2 EE 4 


74DB 


2EC1 




jz readhst 




;try again if directed 


=2EE6 


C3 






ret 




;else return with error 


= 2EE7 


BBDE32 




rdsker : 


mov bx, offset 


skmsg 




= 2EEA 


E822F7 


260F 




call pmsg 






= 2EED 


E8B900 


2FA9 




call prthst 




;print drive number 


= 2EF0 


BB3233 






mov bx, offset 


trkmsg 


;print 'track' 


= 2EF3 


E819F7 


260F 




call pmsg 




=2EF6 


2EA1FF2F 






mov ax,hsttrk 




;get track number 


= 2EFA 


E88F00 


2F8C 




call decprt 




;print decimal 


= 2EFD 


E80C00 


2F0C 




call kqery 




= 2F00 


74BF 


2EC1 




jz rerhst 




;try again? 


= 2F02 


C3 






ret 




;or return with error 








notready : 




;routine to print "not ready 


= 2F03 


BBF532 






mov bx, offset 


nrmsg 


;get message address 


= 2F06 


E806F7 


260F 




call pmsg 




;print it then fall through 


= 2F09 


E89D00 


2FA9 




call prthst 




;print which one 



=2F0C BB0632 



kqery: 

mov bXrOffset kqmsg 



; routine to check keyboard for 
?standard keyboard message 



CP/M ASM86 1.1 SOURCE: 
=2F0F E8FDF6 260F 
=2F12 E81BFB 2A30 
=2F15 3C03 

=2F17 7523 2F3C 
=2F19 2EC606053000 
=2F1F 2EC606033000 
=2F25 2EC6060D3002 



CPLBIOS.A86 Customized Basic I/O System 
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=2F2B 2EC7064E2500 
00 

=2F32 E83AF7 
=2F35 8A0EB724 
=2F39 E9C7D0 



call pmsg 
call CONIN 
cmp al,0 3 
jnz kgnex 
mov unacnt,0 
mov hstact,0 
mov wrtype/Wrual 
if not loader bios 



print It 

get character 

Ctrl c? 

skip ahead if .lot 
clear write flags 



266F 
0003 



mov Z80FLAG, false 

call revector 

mov cl,byte ptr .curdrvs 

jmp ccp+3 



;clear z80 flag 
;start over if so 
;go back to ccp 



endif ;not loader bios 
if loader bios 



jmp WBOOT 



=2F3C 3C20 
=2F3E 7503 
=2F40 32C0 
=2F42 C3 

=2F43 2EC6060A3001 
=2F49 2EC606053000 
=2F4F 2EC606033000 
=2F55 2EC6060D3002 
=2F5B C3 



endif ;loader bios 
kqnex : cmp al , ' ' 
2F43 jnz kqret 

xor al,al 

ret 

kqret: mov erflag,l 
mov unacnt^O 
mov hstact,0 
mov wrtype^wrual 
ret 



space bar for retry 

other key for error return 

zero it 

error code 

clear write flags 



else return 



icicicicicicicicicificiciclcicicicic'k'kiiicic'kis'k'kicic'k'k'kiclcic-klc'kicicitic 
* 

* print disk, track, sector 

* 

****************************************** 



= 2F5C 


E84A00 


2FA9 rwerr: 


call prthst 




;print disk":" 


= 2F5F 


BB3233 




mov bx, off set 


trkmsg 


;print" TRACK " 


= 2F62 


E8AAF6 


260F 


call pmsg 


= 2F65 


2EA1FF2F 




mov ax,hsttrk 




;print track no. 


= 2F69 


E82000 


2F8C 


call decprt 






= 2F6C 


BB3B33 




mov bx, offset 


secmsg 


; print " SECTOR " 


= 2F6F 


E89DF6 


260F 


call pmsg 






=2F72 


2EA00130 




mov al,hstsec 




;print sector no. 


= 2F76 


32E4 




xor ah, ah 




= 2F78 


E81100 


2F8C 


call decprt 






= 2F7B 


BB5732 




mov bx, off set 


kqxmsg 


;ask for options 


=2F7E 


E88EF6 


260F 


call pmsg 






= 2F81 


E8ACFA 


2A30 


call CONIN 




7 


= 2F84 


3C0D 




cmp a 1 , c r 




;carriage return? 


=2F86 


7501 


2F89 


jne rwmker 




;mark error if not 



CP/M ASMS 6 1.1 
=2F88 C3 
=2F89 E9B7FF 



= 2F8C 
= 2F8E 
= 2F90 
= 2F93 
=2F95 
= 2F96 
= 2F97 
= 2F99 
= 2F9B 
= 2F9C 
= 2F9D 
= 2F9F 
= 2FA2 
= 2FA5 
= 2FA6 
= 2FA8 



33C9 

33D2 

BBOAOO 

F7F3 

41 

52 

03C0 
75F3 
5A 
51 

8ACA 
80C130 
E890FA 
59 

E2F3 
C3 



SOURCE: CPLBIOS.A86 Customized Basic I/O System 

ret ; ignore if return 

2F43 rwmker: jmp kqret ;return with marked error 
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=2FA9 2E8A0EFE2F 
=2FAE 80C141 
=2FB1 E881FA 
=2FB4 B13A 
=2FB6 E87CFA 
=2FB9 C3 



decprt : 
rediv: 



2F8E 



redout: 



2A35 



2F9B 



prthst : 



2A35 



2A35 



; enter with number 

xor cx,cx 

xor dXfdx 

mov bx,10 

div bx 

inc cx 

push dx 

or ax, ax 

jnz rediv 

pop dx 

push cx 

mov cl,dl 

add cl,'0* 

call CONOUT 

pop cx 

loop redout 

ret 

;pr int disk , Az , B ; 

mov clfhstdsk 

add cl, 'A' 

call CONOUT 

mov cl f ' : ' 

call CONOUT 

ret 



to be printed in ax 

;count digits in cx 
;clear the remainder 

;divide by 10 
;bump the count 
;store digit 
;any more? 
;loop if so 

;the last shall be first 

;store the count 

; remainder in dl to cl 

;ascii number 

;print digit 

;get the count 

;loop back if more 

;else return 



etc . 



;get the number 
;Print it 
;print a colon 



****************************************** 
* 

* read/write from host 

* 

****************************************** 



= 2FBA 
= 2FBB 
= 2FBD 
= 2FBF 
= 2FC3 
= 2FC5 
= 2FC8 
= 2FCA 
^'^FCC 
= 2FD1 
= 2FD3 
= 2FD6 
= 2FD8 
= 2EDD 
= 2FDF 
= 2FE0 
= 2FE4 



50 

B400 
B104 

2EA0FE2F 

D3C0 

BB1330 

03D8 

8B17 

2E8A1E0130 
DICO 
80E31F 
0AC3 

2E8B1EFF2F 

8AE3 

50 

2EA14725 
05A200 



rwhst: push ax 
mov ah,0 
mov cl,4 
mov al^hstdsk 
rol ax,cl 

mov bx, offset dpbase 

add bx,ax 

mov dx , [bx] 

mov bl,hstsec 

rol ax,l 

and bl,lfh 

or al,bl 

mov bx,hsttrk 

mov ah,bl 

push ax 

mov ax,dbptr 

add ax,xshrbuf 



function set for packer 
clear high 
set for rol 
disk number 
times 32 

get disk data address 
for this disk 
get pointer in dx 
host sector 

rotate drive once more 
mask sector number (jic) 
combine sector 
and track 
in one byte 
stack for packer (2) 
point to data block 
point to buffer 



CP/iV! ASM86 1.1 
=2FE7 50 
=2FE8 B80100 
=2FEB 50 
=2FEC B80000 
=2FEF B90400 
=2FF2 E8C0F5 
=2FF5 58 
=2FF6 58 
=2FF7 58 
=2FF8 58 
=2FF9 C3 



SOURCE: CPLBIOS.A86 Customized Basic I/O System 
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push ax 
mov ax, 0001 
push ax 
mov ax^O 
mov cx,4 
25B5 call packer 

pop ax 
pop ax 
pop ax 
pop ax 
ret 



j End of added code 



(3) 
(4) 

wait for z80 

4 words for packer 

level the stack 



go away when done 



********************************************** 

* * 

* Use the GENDEF utility to create disk def tables * 

* * 
***************************************************** 

dpbase equ offset $ 

disk parameter tables go here 



* * 

* Uninitialized RAM areas follow, including the * 

* areas created by the GENDEF utility listed above. * 

* * 
***************************************************** 



= 2FFA 


sek__dsk 


rb 


1 


;seek disk number 


= 2FFB 


sek_trk 


rw 


1 


;seek track number 


= 2FFD 


sek sec 


rb 


1 


;seek sector number 


=2FFE FF 


r 

hst dsk 


db 


Of fh 


;host disk number 


= 2FFF 


hst_trk 


rw 


1 


;host track number 


= 3001 


hst sec 


rb 


1 


;host sector number 


= 3002 


sek hst 


rb 


1 


;seek shr secshf 


= 3003 


hst_act 


rb 


1 


;host active flag 


= 3004 


hst_wr t 


rb 


1 


;host written flag 


= 3005 


una_cnt 


rb 


1 


;unalloc rec cnt 


= 3006 


una_dsk 


rb 


1 


;last unalloc disk 


= 3007 


una_trk 


rw 


1 


;last unalloc track 


=3009 


una_sec 


rb 


1 


;last unalloc sector 


=300A 


erf lag 


rb 


1 


;error reporting 


= 300B 


rsf lag 


rb 


1 


;read sector flag 


=300C 


readop 


rb 


1 


;1 if read operation 


=300D 


wr type 


rb 


1 


;write operation type 



CP/M ASMS 6 1.1 SOURCE: 
= 300E 
= 3010 
= 3012 



= 3013 

=3013 62300000 
=3017 00000000 
=301B 9D305330 
=301F 36311D31 
=3023 62300000 
=3027 00000000 
=302B 9D305330 
=302F 6F315631 
=3033 62300000 
=3037 00000000 
=303B 9D305330 
=303F A8318F31 
=3043 62300000 
=3047 00000000 
=3043 9D305330 
=304F E131C831 



CPLBIOS.A86 
dma_seg rw 
clma_off rw 
roediatype rb 
;hstbuf rb 



Customized Basic 
1 
1 
1 

hstsiz 



dpbase 
dpeO 



dpel 



dpe2 



dpe3 



end 

INCLUDE CAT. LIB 
DISKS 5 
equ 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



xltO,OOOOh 
OOOOh^OOOOh 
dirbuf ,dpbO 
csvO ,alvO 
xltl,0000h 
0000h,0000h 
dirbuf ,dpbl 
csvl ,alvl 
xlt2,0000h 
OOOOhrOOOOh 
dirbuf rdpb2 
csv2 ,alv2 
xlt3,0000h 
0000h,0000h 
dirbuf ,dpb3 



csv3 ,alv3 

. — DUMMY DISK FOR ROBIN MEDIA REFERENCE 

DISKDEF 0, 0,39,1, 2048, 195rl28, 128, 2 



I/O System 
;last dma segment 
;last dma offset 
;Rainbow or Robin media 
;host buffer (not in CP/M 86/80) 



Base of Disk Parameter Blocks 
Translate Table 
Scratch Area 
Dir Buff, Parm Block 
Check, Alloc Vectors 
Translate Table 
Scratch Area 
Dir Buff, Parm Block 
Check, Alloc Vectors 
Translate Table 
Scratch Area 
Dir Buff, Parm Block 
Check, Alloc Vectors 
Translate Table 
Scratch Area 
Dir Buff, Parm Block 
Check, Alloc Vectors 
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= 3053 


dpbO 


equ 


offset $ 


;Disk Parameter Block 


= 3053 


2800 




dw 


40 


;Sectors Per Track 


=3055 


04 




db 


4 


;Block Shift 


=3056 


OF 




db 


15 


;Block Mask 


= 3057 


01 




db 


1 


;Extnt Mask 


= 3058 


C200 




dw 


194 


;Disk Size - 1 


= 305A 


7F00 




dw 


127 


;Directory Max 


= 305C 


CO 




db 


192 


;AllocO 


= 305D 


00 




db 





;Allocl 


= 305E 


2000 




dw 


32 


;Check Size 


= 3060 


0200 




dw 


2 


;0f fset 


= 3062 


xltO 


equ 


offset $ 


;Translate Table 






. ** 


Modified for 


Rainbow media 




= 3062 


00010203 




db 


0,1,2,3 




= 3066 


08090A0B 




db 


8,9,10,11 




=306A 


10111213 




db 


16,17,18,19 




=306E 


18191A1B 




db 


24,25,26,27 




= 3072 


20212223 




db 


32,33,34,35 




= 3076 


04050607 




db 


4,5,6,7 




= 307A 


OCODOEOF 




db 


12,13,14,15 




= 307E 


14151617 




db 


20,21,22,23 




= 3082 


ICIDIEIF 




db 


28,29,30,31 




= 3086 


24252627 




db 


36,37,38,39 




= 0019 


also 


equ 


25 


;Allocation Vector Si: 


= 0020 


cssO 


equ 


32 


;Check Vector Size 








DISKDEF 


1.0 





CP/M ASM86 1.1 


SOURCE: CPLBIOS 


.A86 Customized 


Ba s ic 




= 3053 


dpbl 




dpbO 






;Equivalent Parameters 


= 0019 


alsl 


e^ U 


ct J. o U 








= 0020 


cssl 




c s s 






•Same Chppkc^iiTTi Vpptrir f^i^f^ 


= 3062 


xltl 


e(^u 


A ± u u 






?Same Tran*^lai"P Tahip 

1 \-f a. Ill v:; xi.c«iioJ.ci\.>^ X a. kj x^ 






Lf X iD L\. U Ej C 


z , u 








= 3053 


dpb2 




upDU 






? Eou i va 1 pn t" Pa ramp t pre? 


= 0019 


als2 




alsO 






f odiuc; ri J. X v^v« ci u J. 11 vtrv-uC/L Ox^tr 


= 0020 


c s s 2 




cssO 






,oaiue cnecKsum vect-or oize 


= 3062 


xlt2 


equ 


xltO 






,i5aiiie iLansxaue laDxe 




7 


DISKDEF 


o n 
3 ,u 








= 3053 


apD J 


equ 


dpbu 






;Equivalent Parameters 


= 0019 


a X o O 


equ 


also 






joame Aiiocauion vector oize 


= 0020 


C S S 3 


equ 


cssO 






,oame v^necKsum vecuor oize 


= 3062 


xlt3 


equ 


XI tu 






/Odiiic; X L ciii o X ci ucr xciL/Xcf 






Ti T Qlf T? 

u 1 o j\ L/Cj r 




f J- 


,1024 f 


171 fi4 fi4 ? 


= 308A 


dpb4 


equ 


offset 


§ 

V 




•Dic;k Paramptpr Rl nek 

f X/ X is i\ I. OL X CI ill ^ \,.CJ. XJ X \J \^ l\ 


=308A 2400 




dw 


J D 






;Sectors Per Track 


=308C 03 




a D 


o 

J 






•Block Shift 

1 XJ X\J\^ t\ \J Ll X X 


=308D 07 




QD 


1 






• Rlr»r»k Mack 


=308E 00 




O D 


n 
u 






/CiAUIlU i*ictoi\ 


=308P AAOO 




dw 


± / u 






• Hick Qi'7c» — 1 


=3091 3F00 




dw 


D J 








=3093 CO 




QD 


1 y z 






f t\x xkjk^Kj 


=3094 00 




db 









• AllOCl 


=3095 1000 




dw 


16 






;Check Size 


=3097 0200 




dw 


2 






;0f fset 


= 3062 


xlt4 


equ 


xltO 






;Translate Table 


= OOOC 


als4 


equ 


12 






;Allocation Vector Size 


= 0010 


css4 


equ 


16 






;Check Vector Size 






ENDEF 
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= 3099 



Table for transfering dpb's between rainbow and robin media: 
mediatbl equ offset $ 



=3099 5330 






dw dpbO 


;Painbow PC-100 


=309B 8A30 






dw dpb4 


;Robin 






Uninitialized Scratch Memory Follows: 


= 309D 


begdat 


equ 


offset $ 


;Start of Scratch Area 


= 309D 


dirbuf 


rs 


128 


;Directory Buffer 


=311D 


alvO 


rs 


also 


;Alloc Vector 


= 3136 


csvO 


rs 


cssO 


; Check Vector 


= 3156 


alvl 


rs 


alsl 


;Alloc Vector 


= 316F 


csvl 


rs 


cssl 


;Check Vector 


= 318F 


alv2 


rs 


als2 


;Alloc Vector 


=31A8 


csv2 


rs 


css2 


;Check Vector 


=31C8 


alv3 


rs 


als3 


;Alloc Vector 


=31E1 


csv3 


rs 


css3 


;Check Vector 


= 3201 


enddat 


equ 


offset $ 


?End of Scratch Area 


= 0164 


datsiz 


equ 


offset $-begdat 


;Size of Scratch Area 


=3201 00 




db 





;Marks End of Module 



CF/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 

INCLUDE CPLBIOS2.A86 
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= 3010 

=3202 00 
=3203 0000 
=3205 00 



* * 

* Data Areas * 

* * 
********************************************* 



dma adr equ dma_off 



lOBYTE db 
BXHLD dw 
xoff_flg db 

IF 



;l 

signon db 
db 
DB 







loader bios 



;store bx here 



27, ' [2J' ,27, • [3;1H' 
cr , If ,cr , If 
•CP/M-86/80 Loading 



,CR,LF,0 



=3206 0D0A50726573 
73204354524C 
2D4320746F20 
726573746172 
742C200D0A 

=3223 737061636520 
62617220746F 
207265747279 
2C206F722061 
6E79206F7468 
6572206B6579 
20746F20636F 
6E74696E7565 
2E 

=3254 ODOAOO 

=3257 ODOA 

=3259 507265737320 
52657475726E 
20746F206967 
6E6F72652065 
72726F722C20 
616E79206F74 



ENDIF ; loader_bios 
;error messages: 

kqmsg db cr, If, 'Press CTFL-C to restart, ',cr,lf 



db 



endlin db 

kqxmsg db 
db 



'space bar to retry, or any other key to continue.' 



cr ,lf ,0 
cr ,lf 

'Press R'^turn to ignore error, any other key to continue' 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
686572206B65 
7920746F2063 
6F6E74696E75 
65 

=3290 ODOAOO 
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=3293 0D0A44726976 
652077726974 
652D70726F74 
656374656420 
2D2D2000 

=32AF 0D0A52656164 
206572726F72 
206F6E206472 
6976652000 

=32C6 0D0A57726974 
65206572726F 
72206F6E2064 
726976652000 

=32DE 0D0A5365656B 
206572726F72 
206F6E206472 
6976652000 

=32F5 0D0A44726976 
65206E6F7420 
726561647920 
2D2D2000 

=330B 0D0A43616E6E 
6F7420777269 
7465206F6E20 
565431383020 
6469736B206F 
6E2064726976 
652000 

=3332 2C2074726163 
6B2000 

=333B 2C2073656374 
6F722000 



db 

wpmsg db 



erl 



er2 



er5 



db 



db 



skmsg db 



db 



unabl db 



trkmsg db 
secmsg db 



cr ,lf ,0 

cr, If, 'Drive wr ite-protected — ' ,0 



cr, If, 'Read error on drive ',0 



crrlf, 'Write error on drive ',0 



cr, If, 'Seek error on drive ',0 



cr, If, 'Drive not ready — ' ,0 



cr , If , 'Cannot write on VT180 disk on drive ' ,0 



' , track ' ,0 
' , sector ' ,0 



= 32AF 
= 32C6 
= 32F5 

=3345 0D0A54696D65 
6F7574206F6E 
20 

=3352 4544 
=3354 563A00 



birmsg equ erl 

biwmsg equ er2 

nrmsg equ er5 

p232to db 



p232tol dw 
p232to2 db 



cr ,lf , 'Timeout on ' 



•DE' 
'V: ' ,0 



if 



not loader bios 



CP/M ASM86 1.1 SOURCE: 
=3357 00 



= 3358 
= 335A 
= 335C 



=335E 
-335F 



CPLBIOS.A86 Customized Basic I/O System 
dispst db 
endif 
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SEGHLD rw 1 
RTNHLD rw 1 
COUNT rw 1 



save segment 

save return address 



; System Memory Segment Table 

segtable rb 1 ;2 segments 

rw 4 ;room for two segs 



IF 



not loader bios 



=3367 1B5B324A1B5B 
333B3148 

=3371 202020202043 
502F4D2D3836 
2F3830205665 
7273696F6E20 

=3389 31 

=338A 2E 

=338B 30 



=338C 2028312E3129 
ODOA 

=3394 28632920436F 
707972696768 
742031393831 
204469676974 
616C20526573 
656172636820 
496E632E0D0A 

=33BE 28632920436F 
707972696768 
742031393832 
204469676974 
616C20457175 
69706D656E74 
20436F72706F 
726174696F6E 
ODOA 

=33F0 ODOAOO 



signon db 
DB 



db 
db 
db 
db 
db 
db 



DB 



DB 



27,' [2J' ,27,' [3;1H' 

CP/M-86/80 Version ' 

version_number+'0 • 
f f 

rev number+'O* 
t I 

mod__number+ ' • 
• (1.1)',CR,LF 

'(c) Copyright 1981 Digital Research Inc.',CR,LF 



(c) Copyright 1982 Digital Equipment Corporation ' ,cr , If 



db 



cr ,lf ,0 



ENDIF ;not loader bios 



= 33F3 



lastoff equ offset $ 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System 
= if not loader bios 
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=3900 
= 3930 

= 0380 
= 0C77 
=3930 00 



org 3900h 

endif ;not loader_bios 

loc_stk rw 24 jlocal stack for initialization 
stkbase equ offset $ 

tpa seg equ (lastof f+0400h+15) / 16 
tpa_len equ 0FF7h - tpa_seg 

db ;fill last address for GENCMD 



= 0000 

=0000 
=0002 

=0004 



0040 
0006 



Dummy Data Section 



dseg ; absolute low memory 

org ; (interrupt vectors) 

intO_offset rw 1 

intO_segment rw 1 

; pad to system call vector 

rw 2*(bdos int-1) 



=0380 


bdosof f set 


rw 


1 


=0382 


bdos_segment 


rw 


1 




org 


36*4 




=0090 


sio_of f set 


rw 


1 


=0092 


sio_seg 


rw 


1 


=0094 


sio2_of f set 


rw 


1 


=0096 


sio2_seg 


rw 


1 




org 


39*4 




=009C 


Z80 OFFSET 


RW 


1 


=009E 


Z80_SEG 


RW 


1 




org 


44*4 




=00B0 


tp44_of f set 


rw 


1 


=00B2 


tp44_seg 


rw 


1 




org 


100*4 




=0190 


tplOO offset 


rw 


1 


=0192 


tplOO seg 


rw 


1 



;type 36 service 



;type 39 service 



*************************************************** 

DUMMY CODE SECTION (FOR FAR CALL TO Z80CCP SERVICES) 
*********************************************************************** 

; ABSOLUTE LOCATION 



END 



CSEG 
ORG 

CCPSERV EQU 



40h 
6h 
$ 



CP/M ASM86 1.1 SOURCE: CPLBIOS.A86 Customized Basic I/O System PAGE 49 

END OF ASSEMBLY. NUMBER OF ERRORS: 0. USE FACTOR: 43% 



CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 
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TITLE 'CPL PATCHES FOR CP/M 8^/80' 



OOOA 


COMLEN OFFSET 


EQU 


OOOAH ; 


VARIABLE LOCATION 


008B 


BDOS LOC 


EQU 


008BH 


LABEL 


LOCATION 


OOAF 


PRINT LOC 


EQU 


OOAFH 


LABEL 


LOCATION 


00D2 


INITMEM LOC 


EQU 


00D2H 


LABEL 


LOCATION 


00E9 


OPEN LOC 


EQU 


00E9H 


LABEL 


LOCATION 


OOED 


OPENC LOC 


EQU 


OOEDH 


LABEL 


LOCATION 


034D 


BOOT PATCH LOC 


EQU 


034DH 


PATCH 


3 BYTES 


035E 


CCP LOC 


EQU 


035EH 


• LABEL 


LOCATION 


046C 


RESETDISK LOC 


EQU 


46CH 


• LABEL 


LOCATION 


7 9 7 
U / Z / 




EiSJ u 


n 7 7X1 

u / z / n 


• PATCH 


5 BYTES 


0732 


LOADUSER LOC 


EQU 


0732H 


' LABEL 


LOCATION 


0738 


GOUSER LOC 


EQU 


0738H 


' LABEL 


LOCATION 


0762 


GOUSERT LOC 


EQU 


0762H 


• NEW LABEL LOCATION 


7BE 


ZRUN PATCH LOC 


EQU 


07BEH 


• PATCH 


6 BYTES 


07F9 


IPO OFFSET 


EQU 


07F9H 


? VARIABLE LOCATION 


u o u o 


PAGO OFFSET 


EQU 


0803H 


; VARIABLE LOCATION 


0827 


COMFCB OFFSET 


EQU 


0827H 


; VARIABLE LOCATION 


0939 


CDISK OFFSET 


EQU 


0939H 


? VARIABLE LOCATION 


093A 


SDISK OFFSET 


EQU 


093AH 


• VARIABLE LOCATION 


097B 


LOADMSG^OFFSET 


EQU 


097BH 


? VARIABLE LOCATION 


14E0 


DOBACKSP LOC 


EQU 


14E0H ; NEW LABEL LOCATION 


14F2 


DELETE PATCH LOC EQU 


14F2H 


} PATCH 


12 BYTES 


1622 


MOVE__PATCH_LOC 


EQU 


1622H ; PATCH 


3 BYTES 


253F 


ZMOVEF_LOC 


EQU 


2500H+(3*21) ; LABEL 


LOCATION 


3400 


CODE8680 


EQU 


03400H 


r OFFSET FOR ADDITIONAL 










? FOR 


CP/M-8680 



(LOCATED AFTER BIOS) 



;** EQUATES FOR PATCH TO ALLOW SUBMIT FILES FROM DISKS ;** 

;** OTHER THAN A. ;** 

.************************************★********* 



0147 


RE ADC P 


EQU 


147H 


24B7 


CURDRVS 


EQU 


24B7H 


0939 


CDISK 


EQU 


939H 


OlFF 


DELSUBP 


EQU 


IFFH 


0153 


READCA LOC 


EQU 


153H 


OODA 


SELECT LOC 


EQU 


ODAH 


0202 


DELSUBR LOC 


EQU 


202H 



I 
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icicicieiciciciciciticicicicicieicicicieicicicieicieisiticicieicicicieiciiicieicieicicicicicicic***^ 

** EQUATES FOR PATCH TO MAINTAIN BDOS CONSOLE IN STATUS 

;** FOR Z80 PROGRAMS IN THE DATA BLOCK 

CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



138B 
1407 



CONIN__PATCH_LOC EQU 138BH 
CONBO PATCH LOC EQU 1407H 



22E6 KBCHAR_OFFSET EQU 22E6H 

CP/M ASMS 6 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



PATCH 3 BYTES 
PATCH 3 BYTES 
VARIABLE LOCATION 



BDOS: 



PRINT: 



EJECT 
CSEG 

ORG 
ORG 
ORG 



INITMEM: 



OPEN: 



OPENC: 



BDOS LOC 



PRINT LOC 



INITMEM LOC 



ORG OPEN LOC 



ORG OPENC LOC 



034D E9B030 



ORG 

3400 JMP 
BOOT RET: 



BOOT_PATCH_LOC 
BOOT PATCH 



; SAVE BOOT DRIVE # 



ORG 



CCP: 



CCP LOC 



ORG 
RESETDISK: 



RESETDISK LOC 
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0727 E9DF2C 
072A 90 
072B 90 



3409 



ORG 
JMP 
NOP 
NOP 



COM RET: 



COM_PATCH_LOC 
COM PATCH 



; LOAD Z80CCP.SYS IF NECESSARY 



ORG 
LOADUSER: 



LOADUSER LOC 



ORG GOUSER_LOC 

GOUSER: 

CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



07BE E9EE2C 

07C1 90 

07C2 90 

07C3 90 



ORG 



GOUSERl: 



34AF 



ORG 
JMP 
NOP 
NOP 
NOP 



ZRUN RET: 



ORG 



DOBACKSP: 



GOUSERl LOC 



ZRUN_PATCH_L0C 
ZRUN PATCH 



; RUN Z80CCP.SYS IF LOADED 



DOBACKSP LOC 



14F2 EBEC 
14F4 90 
14F5 90 
14F6 90 
14F7 90 
14F8 90 
14F9 90 
14FA 90 
14FB 90 
14FC 90 
14FD 90 



ORG 

14E0 JMPS 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 

DELETE RET: 



DELETE_PATCH_LOC 
DOBACKSP 



; MAKE DELETE BEHAVE AS BACKSPACE 



1622 E81A0F 



ORG 

253F CALL 
MOVE RET: 



MOVE_PATCH_LOC 
ZMOVEF 



; ALLOW MOVE TO Z80 PRIVATE SPACE 
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ORG 



ZMOVEF LOG 



ZMOVEF: 



GP/M ASMS 6 1.1 SOURGE: GPLPATGH.A86 GPL PATGHES FOR GP/M 86/80 



EJEGT 

** PATGH TO ALLOW SUBMIT FILES TO USE OTHER DISKS THAN ;** 

** A FOR SGRATGH FILE (SUBMIT. $$$) ;** 



READGA: 



SELEGT: 



ORG READGA LOG 



ORG SELEGT LOG 



ORG DELSUBR LOG 



DELSUBR: 



0147 A0B724 
014A 3A063909 
014E 7403 



OlFF E90933 



0153 
350B 



ORG READGP 

MOV AL.BYTE PTR .GURDRVS 

GMP AL^BYTE PTR .GDISK 

JE READGA 

ORG DELSUBP 

JMP DELSUBPA 



ic ****** ie* 1ei( it 1c** icii1e*ie it* ic*ic****1eieic*ic*ie ******** ****** 

** PATGHES FOR BDOS GONIN STATUS IN DATA BLOGK ;** 

****************************************************************** 



138B E98621 



ORG 

3514 JMP 
GONIN RET: 



GONIN_PATGH_LOG 

GONIN PATGH ; RESET BDOS GONIN FLAG 



ORG GONB0_PATGH_LOG 
1407 E92221 352G JMP GONB0_PATGH ; SET BDOS GONIN FLAG 

GONB0_RET : 

GP/M ASMS 6 1.1 SOURGE: GPLPATGH.A86 GPL PATGHES FOR GP/M 86/80 

EJEGT 

INGLUDE DEFBUF.LIB 

= . ************************************************************************* 

OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOGK 



FFAO 
0000 



XDPGX 
XDEFBUF 



EQU 
EQU 



-60H 
OOOH 



; DISK PARAMETER STORAGE (60H) 
; MISG. BUFFER (LENGTH=SOH) 
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0086 


XPACKET 


EQU 


086H ; 


BIOS MESSAGE PACKET 


(LENGTH=OEH) 





0086 


XSTPKT 


EQU 


086H 


START PACKET BUFFER 


(LENGTH=OEH) 


_ 


0094 


XADCPKT 


EQU 


094H 


DATA PACKET (LENGTH= 


= OEH) 


= 


0094 


XMVPKT 


EQU 


094H 


• MOVE PACKET BUFFER 


(LENGTH=OEH) 




00A2 


XSHRBUF 


EQU 


0A2H 


• SEGMENT BUFFER ( LENGTH=200H) 


_ 


02F8 


XMEMSIZE 


EQU 


2F8H 


MEMORY SIZE (WORD) 




= 


02FA 


XPCPMADR 


EQU 


2FAH 


PSEUDO CP/M ADDRESS 


(WORD) 




02FC 


XZ80PKT 


EQU 


2FCH 


• PACKET POINTER FROM 


Z80 (WORD) 


= 


02FE 


XI88PKT 


EQU 


2FEH 


• PACKET POINTER FROM 


8088 (WORD) 




02F0 


XTTRACK 


EQU 


2F0H 


rTRACK TABLE 




_ 


02F4 


XTFORMAT 


EQU 


2F4H 


' FORMAT TABLE 




— 

_ 


02E7 


XCSFLAG 


EQU 


2E7H 


■ CONSOLE STATUS FLAG 




= 




; OFFSETS FROM 


ZOT FOR 


CONVENIENCE 








0000 


ZOTP 


EQU 





• Z80 FLAG 






FFFE 


Z80FLAGPT 


EQU 


-2 


? Z80-RUNNING FLAG 






FFFB 


CICCK 


EQU 


-5 


? CONSOLE STATUS FLAG 


CHECK 






; OTHER USEFUL 


EQUATES 










0002 


BDCS 


EQU 


2 


; BDOS CHARACTER READY BIT 




0001 


BIOCS 


EQU 


1 


; BIOS CONSOLE STATUS 


BIT 




0017 


BIOS JMPS 


EQU 


23 


; NUMBER OF FUNCTIONS 


IN JUMP TABL 



. ******************************************************* 



2500 
0047 

02FA 

003B 

OOOA 
GOOD 



BIOS__OFFSET EQU 
PBADR_OFFSET EQU 

PCPMADR OFFSET EQU 



LOADF 

LF 
CR 



EQU 

EQU 
EQU 



2500H 

BIOS_JMPS*3+2 
XPCPMADR 



59 

OAH 
ODH 



OFFSET OF BIOS 

OFFSET (FROM START OF BIOS) 
OF WORD THAT CONTAINS 
ADDRESS OF POINTERS/BUFFERS 
DATA BLOCK 

OFFSET (FROM START OF PTRSBUFS) 
OF WORD CONTAINING ADDRESS 
OF PSEUDO CP/M 
0=PSEUDO CP/M NOT LOADED 



BDOS FUNCTION 



LOAD FILE 



CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



EJECT 



ORG 



CODE8680 



3400 A23909 
3403 A24735 
3406 E947CF 



BOOT_PATCH: 
MOV 
MOV 

0350 JMP 



.CDISK_OFFSET,AL 
BOOTDRV.AL 
BOOT RET 
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CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



EJECT 



3409 E8E1CC 
340C 7403 
340E E91700 



3411 
3414 
3417 
341A 
341B 
341D 
3420 
3423 
3425 



BF3008 
BE4435 
B90300 
FC 

F3A4 

BA2708 

E8CACC 

752B 

E904D3 



OOED 
3411 
3428 



OOED 
3450 
072C 



COM PATCH: 

CALL 

JZ 

JMP 

USERCOM: 

MOV 
MOV 
MOV 
CLD 
REP MOVS 
MOV 
CALL 
JNZ 
JMP 



OPENC 

USERCOM 

CMDTEST 

DI ,C0MFCB__0FFSET+9 
Sr, OFFSET COMTYPE 
CX,3 

AL,AL 

DX,COMFCB__OFFSET 

OPENC 

COMTEST 

COM RET 



TRY .COM FILE 



3428 BE2808 
342B BF4D35 
342E B90800 

3431 FC 

3432 F3A6 
3434 E317 



CMDTEST: 

MOV 
MOV 
MOV 
CLD 
REPE CMPS 
344D JCXZ 



S r , C0MFCB_0FFSET+1 
DI, OFFSET SAVEFCB 
CX,8 

AL,AL 
CMDTESTX 



; FILE = SAVE.CMD? 



YES - GO EXECUTE 



3436 BB4725 

3439 8B1F 
343B 81C3FA02 
343F 06 

3440 33C0 
3442 8EC0 
3444 26833F00 

3448 07 

3449 7402 
344B EB03 



344D 
3450 



MOV BX,BIOS__OFFSET+PBADR_OFFSET 

MOV BX,[BX] 

ADD BX , PCPMADR_OFFSET 

PUSH ES 

XOR AX, AX 

MOV ES,AX 

CMP ES:WORD PTR [BX],0 

POP ES 

JZ CMDTESTX 

JMPS LOADZSYS 



; IS PSEUDO CP/M LOADED? 



NO - GO EXECUTE 



344D E9E2D2 



CMDTESTX: 
0732 JMP 



LOADUSER 



COMTEST: 



3450 E87FCC 



LOADZSYS: 
00D2 CALL 



INITMEM 



; RELEASE ALL MEMORY 



3453 
3456 
3459 
345C 
345D 
345F 
3462 



BE2708 
BF7635 
B92100 
FC 

F3A4 

A03A09 

A27635 



MOV 
MOV 
MOV 
CLD 
REP MOVS 
MOV 
MOV 



SI,COMFCB_OFFSET 
DI, OFFSET PARMFCB 
CX,33 

AL,AL 

AL, .SDISK_OFFSET 
PARMFCB, AL 



SAVE THIS FCB 

... TO USE AS PARAMETER 



; DO NOT USE DEFAULT DISK 
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3465 C606963500 MOV BYTE PTR PARMFCB+32,0 ; REC CNT = 

CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



346A 


A04735 




346D 


FECO 




346F 


A25535 




3472 


C606753500 




3477 


BA5535 




347A 


E86CCC 


00E9 


347D 


7503 


3482 


347F 


E91600 


3498 


3482 


BA5535 




3485 


B13B 




3487 


E801CC 


008B 


348A 


40 




348B 


7503 


3490 


348D 


E90D00 


349D 


3490 


C606483501 




3495 


E9A0.D2 


0738 


3498 


B99735 




349B 


EB03 


34A0 


349D 


B9C435 




34A0 


E80CCC 


OOAF 


34A3 


E8C6CF 


046C 


34A6 


2EC6060A0000 




34AC 


E9AFCE 


035E 



LZ80A: 



LZ80B: 



ERRZ80: 



; OPEN 

MOV 

INC 

MOV 

MOV 

MOV 

CALL 

JNZ 

JMP 

MOV 

MOV 

CALL 

INC 

JNZ 

JMP 

MOV 
JMP 



MOV 
JMPS 



ERRLOAD: 



ZERR: 



MOV 



CALL 
CALL 
MOV 
JMP 



& LOAD Z80CCP.SYS 
AL , BOOTDRV 
AL 

ZSYSFCB,AL 

BYTE PTR ZSYSFCB+32,0 

DX, OFFSET ZSYSFCB 

OPEN 

LZ80A 

ERRZ80 

DX, OFFSET ZSYSFCB 

CL,LOADF 

BDOS 

AX 

LZ80B 
ERRLOAD 

Z SYS FLAG, 1 
GOUSER 



CX, OFFSET NOZ80CCP 
ZERR 



CX, OFFSET LOADZ80ERR 



PRINT 
RESETDISK 

CS .-BYTE PTR . COMLEN_OFFSET , 
CCP 



; SET FOR BOOT DRIVE 
; REC CNT = 



; ERROR 



; LOAD Z80CCP.SYS 



; ERROR 



CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



EJECT 



34AF 
34B5 
34BA 
34BC 



2EC6060A0000 
803E483501 
7403 
E905D3 



34BF 
07C4 



ZRUN_PATCH: 
MOV 
CMP 
JZ 
JMP 



CSrBYTE PTR 
ZSYSFLAG,1 
RUNZSYS 
ZRUN RET 



. COMLEN_OFFSET , OH 

; Z80CCP.SYS LOADED? 
YES 



34BF C606483500 



RUNZSYS: 



MOV 



ZSYSFLAG,0 



34C4 BB4935 
34C7 C7077635 



; SETUP PARAMETER BLOCK 

MOV BX, OFFSET ZSYSPARM 

MOV WORD PTR [BX] , OFFSET PARMFCB 
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34CB 


AO 39 09 




MOV 


AL,.CDISK OFFSET 






34CE 


8A264735 




MOV 


AH,BOOTDRV 






34D2 


894702 




MOV 


2 [BX] ,AX 












; SETUP 


REGISTERS FOR CALL 






34D5 


8CD8 




MOV 


AX.DS 






34D7 


8EC0 




MOV 


ES.AX 


f 


SET ES = CCP'S DS; BX = PARM 


34D9 


8E1E0308 




MOV 


DS, .PAGO OFFSET 




SET DS = Z80CCP*S DS 


34DD 


2EFF1EF907 




CALLF 


CS: DWORD PTR .IPO OFFSET 




; RUN Z80CCP.SYS 


34E2 


8CCB 




MOV 


BX,CS 






34E4 


8EDB 




MOV 


DS,BX 




GET NEW DS VALUE 


34E6 


OACO 




OR 


AE^AL 




Z80CCP.SYS ERROR? 


34E8 


7403 


34ED 


JZ 


CMDRUN 






34EA 


E971CE 


035E 


JMP 


CCP 




YES - MSG ALREADY PRINTED 








; EXECUTE ORIGINAL .CMD FILE 












CMDRUN: 








34ED 


E8E2CB 


00D2 


CALL 


INITMEM 




RESET BDOS * SEG TABLE 


34F0 


BA7635 




MOV 


DX, OFFSET PARMFCB 






34F3 


B13B 




MOV 


CL,LOADF 






34F5 


E893CB 


008B 


CALL 


BDOS 




LOAD .CMD FILE 


34F8 


40 




INC 


AX 






34F9 


7509 


3504 


JNZ 


CMDRUNI 




LOAD ERROR? 


34FB 


B97B09 




MOV 


CX,LOADMSG OFFSET 




YES 


34FE 


E8AECB 


OOAF 


CALL 


PRINT 






3501 


E95ACE 


035E 


JMP 


CCP 












CMDRUNI: 








3504 


891E0308 




MOV 


.PAGO OFFSET, BX 






3508 


E957D2 


0762 


JMP 


GOUSERl 







CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



350B A0B724 
350E E8C9CB 
3511 E9EECC 



OODA 
0202 



EJECT 

***************************************************** 

** PATCH TO ALLOW SUBMIT FILES TO USE OTHER DISKS THAN ;** 

** A FOR SCRATCH FILE (SUBMIT. $$$) ;** 

****************************************************************** 



DELSUBPA: 

MOV 

CALL 

JMP 



AL,BYTE PTR 

SELECT 

DELSUBR 



. CURDRVS 



CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



EJECT 

.****************************************************************** 

!** PATCHES FOR BDOS CONIN STATUS MAINTENANCE IN DATA BLOCK ;** 

.****************************************************************** 

CONIN PATCH: 
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3514 C60700 

3517 IE 

3518 53 

3519 33DB 
351B 8EDB 

351D 2E8B1E4725 
3522 80A7E702FD 

3527 5B 

3528 IF 

3529 E962DE 



138E 



MOV BYTE PTR [BX] ,0 

PUSH DS 

PUSH BX 

XOR BX,BX 

MOV DS , BX 

MOV BX,CS 

AND BYTE 

POP BX 

POP DS 

JMP CONIN RET 



; PATCHED BDOS INSTRUCTION 

; SET DS TO ADDRESS SHARED RAM 



: .BIOS_OFFSET+PBADR_OFFSET ; DATA BLOCK ADDRESS 
PTR .XCSFLAG[BX]^NOT BDCS ; RESET BDOS IN BIT 



CONBO PATCH: 



352C 


A2E622 


MOV 


.KBCHAR OFFSET, AL ; PATCHED BDOS INSTRUCTION 


352F 


IE 


PUSH 


DS ; SAME COMMENTS AS ABOVE, EXCEPT 


3530 


53 


PUSH 


BX ; THAT BIT IS SET 


3531 


33DB 


XOR 


BX,BX 


3533 


8EDB 


MOV 


DS,BX 


3535 


2E8B1E4725 


MOV 


BX,CS: .BIOS OFFSET+PBADR OFFSET 


353A 


808FE70202 


OR 


BYTE PTR .XCSFLAG[BX]%BDCS 


353F 


5B 


POP 


BX 


3540 


IF 


POP 


DS 


3541 


E9C6DE 140A 


JMP 


CONBO RET 



CP/M ASM86 1.1 SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80 



3544 



3544 434F4D 
3547 
3548 00 
3549 

354D 534156452020 
2020 

3555 005A38304343 
502020535953 

3561 000000000000 
000000000000 
000000000000 
000000 

3576 

3597 0D0A54686520 
66696C65205A 
38304343502E 
535953204E6F 
7420466F756E 
64206F6E2042 
6F6F74204469 
736B00 



EJECT 
DATA_OFFSET EQU 
DSEG 
ORG 

COMTYPE DB 
BOOTDRV RB 
ZSYSFLAG DB 
ZSYSPARM RB 



SAVEFCB 
ZSYSFCB 



PARMFCB 
NOZ80CCP 



DB 
DB 
DB 

RB 
DB 



OFFSET $ 

DATA_OFFSET 

•COM' 

1 



4 ; PARAMETER BLOCK FOR Z80CCP.SYS 

' SAVE • 
0,*Z80CCP S'SYS' 

a, a, o,a, a, or, a, a, a, a, a, a, a, a, a, a, a, a, a, a, 

33 

CR,LF,*The file Z80CCP.SYS Not Found on Boot Disk 
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35C4 0D0A54686520 LOADZ80ERR DB CR,LF,*The file Z80CCP.SYS Cannot be Loaded ',0 

66696C65205A 
38304343502E 
535953204361 
6E6E6F742062 
65204C6F6164 
656400 

END 



END OF ASSEMBLY. NUMBER OF ERRORS: 0. USE FACTOR: 12% 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 
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TITLE 'CONFIG SYSTEM; INIT FOR .COM* 

; THIS MODULE WRITTEN FOR DEC RAINBOW 100 

BY CPL 
JULY 1982 

; THIS MODULE IS LOADED BY CP/M-86/80 CCP TO 

A) RECONFIGURE THE SYSTEM PRIOR TO EXECUTION OF A .COM FILE, 

B) EXECUTE A .COM FILE, 

OR C) RECONFIGURE THE SYSTEM PRIOR TO RESUMED EXECUTION OF .CMD FILES. 

; UPON ENTRY: 

ES = SEGMENT BASE OF CP/M 

BX = OFFSET TO PARAMETER BLOCK 

; PARAMETER BLOCK: 

BYTES 0-1 OFFSET TO .COM FILE FCB 

2 CURRENT DISK DRIVE 

3 BOOT DRIVE 



; PARSED COMMAND LINE IS IN FCB LOCATION FOR THIS MODULE 
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FFFF 
0000 



TRUE EQU 
FALSE EQU 



NOT TRUE 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



; MEMORY CONFIGURATION #1 (FOR 8088 .CMD FILES) 



0100 



PRMTVl ADR 



EQU 



OlOOH 



; STARTING ADDRESS FOR PRMTVPVT.SYS 



0040 
3600 
3A00 



0300 



CPMl^SEG 
CPM1_LEN 
PBl ADR 



PBl LEN 



EQU 
EQU 
EQU 



EQU 0300H 



0040H ; STARTING SEGMENT OF CP/M-86/80 

3600H ; MAX LENGTH (IN BYTES) OF CP/M-86/80 

(CPM1_SEG*16) +CPM1_LEN 

STARTING ADDRESS OF POINTERS/ 

BUFFERS DATA BLOCK 
LENGTH (IN BYTES) OF POINTERS/ 
BUFFERS DATA BLOCK 



03D0 

1000 
0C30 



TPABEG1_SEG EQU ( PB1___ADR+PB1_LEN) /1 6 

; STARTING SEGMENT OF TPA 
TPAEND1_SEG EQU lOOOH ; ENDING SEGMENT OF TPA + 1 

TPA1_LEN EQU TPAEND1_SEG~TPABEG1__SEG 

; LENGTH (IN PARAGRAPHS) OF TPA 



; MEMORY CONFIGURATION #2 (FOR Z80 .COM FILES) 



0300 PB2_LEN EQU 

FDOO PB2_ADR EQU 

F600 PCPM^ADR EQU 

F603 PRMTV2_ADR EQU 

3600 CPM2_LEN EQU 

OCOO CPM2A_SEG EQU 

1000 CPM2B_SEG EQU 

0040 TPABEG2_SEG EQU 

OCOO TPAEND2A_SEG EQU 

OBCO TPA2A_LEN EQU 

0F60 TPAEND2B_SEG EQU 

0F20 TPA2B LEN EQU 
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PB1_LEN ; LENGTH (IN BYTES) OF POINTERS/ 

BUFFERS DATA BLOCK 
(1000H-(PB2_LEN/16) ) *16 

STARTING ADDRESS OF POINTERS/ 
BUFFERS DATA BLOCK 
0F600H ; STARTING ADDRESS OF PSEUDO CP/M 

PCPM ADR+3 ; STARTING ADDRESS FOR PRMTVSHR.SYS 



CPM1_LEN ; MAX LENGTH (IN BYTES) OF CP/M-86/80 

(PCPM_ADR-CPM2_LEN) /I 6 

STARTING SEGMENT OF CP/M-86/80 — 
FOR SMALL SYSTEM 
lOOOH ; STARTING SEGMENT OF CP/M-86/80 ~ 

FOR LARGE SYSTEM 



0040H ; STARTING SEGMENT OF TPA 

CPM2A_SEG ; ENDING SEGMENT OF TPA + 1 ~ 

FOR SMALL SYSTEM 
TPAEND2A__SEG-TPABEG2_SEG 

LENGTH (IN PARAGRAPHS) OF TPA ~ 
FOR SMALL SYSTEM 
PCPM_ADR/16 ; ENDING SEGMENT OF TPA + 1 ~ 

FOR LARGE SYSTEM 
TPAEND2B_SEG-TPABEG2_SEG 

; LENGTH (IN PARAGRAPHS) OF TPA — 
FOR LARGE SYSTEM 
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CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



2202 



2500 



BIOSCS OFFSET EQU 



BIOS OFFSET 



EQU 



2202H 



2500H 



OFFSET FROM START OF CPM WHERE 

WHERE BDOS STASHES BIOS' CS : 
OFFSET (FROM START OF CP/M-86/80) 
OF BIOS 



INCLUDE DEFBUF.LIB 







; OFFSETS 


FROM START OF 


POINTERS/BUFFERS 


DATA BLOCK 




FFAO 


XDPCX 


EQU 


-60H 


• DISK PARAMETER STORAGE (60H) 




0000 


XDEFBUF 


EQU 


OOOH 


; MISC. BUFFER (LENGTH=80H) 




0086 


XPACKET 


EQU 


086H 


? BIOS MESSAGE PACKET (LENGTH=0EH) 




0086 


XSTPKT 


EQU 


086H 


; START PACKET BUFFER (LENGTH=OEH) 




0094 


XADCPKT 


EQU 


094H 


; DATA PACKET (LENGTH=OEH) 




0094 


XMVPKT 


EQU 


094H 


; MOVE PACKET BUFFER (LENGTH=OEH) 




00A2 


XSHRBUF 


EQU 


0A2H 


; SEGMENT BUFFER (LENGTH=200H) 




02F8 


XMEMSIZE 


EQU 


2F8H 


; MEMORY SIZE (WORD) 




02FA 


XPCPMADR 


EQU 


2FAH 


; PSEUDO CP/M ADDRESS (WORD) 




02FC 


XZ80PKT 


EQU 


2FCH 


? PACKET POINTER FROM Z80 (WORD) 




02FE 


XI88PKT 


EQU 


2FEH 


; PACKET POINTER FROM 8088 (WORD) 
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02F0 
02F4 
02E7 



XTTRACK 

XTFORMAT 

XCSFLAG 



EQU 2F0H 
EQU 2F4H 
EQU 2E7H 



; TRACK TABLE 

; FORMAT TABLE 

; CONSOLE STATUS FLAG 



0000 
FFFE 
FFFB 



; OFFSETS FROM ZOT FOR CONVENIENCE 

ZOTP EQU 

Z80FLAGPT EQU -2 

CICCK EQU -5 



Z80 FLAG 

Z80-RUNNING FLAG 

CONSOLE STATUS FLAG CHECK 



0002 
0001 
0017 



; OTHER USEFUL EQUATES 

BDCS EQU 2 

BIOCS EQU 1 

BIOS JMPS EQU 23 



BDOS CHARACTER READY BIT 

BIOS CONSOLE STATUS BIT 

NUMBER OF FUNCTIONS IN JUMP TABLE 



**************************************************** 



0045 



0047 



SEGTBL OFFSET EQU 



BIOS JMPS*3 



PBADR OFFSET 



EQU 



SEGTBL OFFSET+2 



OFFSET (FROM START OF BIOS) 
OF WORD WITH OFFSET 
(FROM START OF CP/M) TO 
MEMORY SEGMENT TABLE 

OFFSET (FROM START OF BIOS) 
OF WORD THAT CONTAINS 
ADDRESS OF POINTERS/BUFFERS 
DATA BLOCK 



02FE 



I88PKT OFFSET EQU XI88PKT 



; OFFSET (FROM START OF PTRSBUFS) 
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02FC Z80PKT__OFFSET EQU XZ80PKT 
CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR 

02FA PCPMADR_OFFSET EQU XPCPMADR 

02F8 MEMSIZE_OFFSET EQU XMEMSIZE 

0094 MOVEPKT_OFFSET EQU XMVPKT 

0022 MOVEFC EQU 022H 

0086 STARTPKT__OFFSET EQU XSTPKT 

0021 STARTFC EQU 021H 

0100 STARTCOM EQU lOOH 

0100 PBIOS_OFFSET EQU OlOOH 

0000 PBDOS OFFSET EQU 



OF PACKET POINTER FROM 8088 
; OFFSET (FROM START OF PTRSBUFS) 
OF PACKET POINTER FROM Z80 

COM 

; OFFSET (FROM START OF PTRSBUFS) 

OF WORD CONTAINING ADDRESS 

OF PSEUDO CP/M 

0=PSEUDO CP/M NOT LOADED 
; OFFSET (FROM START OF PTRSBUFS) 

OF WORD INDICATING 

#PARAGRAPHS ADDITIONAL MEMORY 
; OFFSET (FROM START OF PTRSBUFS) 

OF PACKET BUFFER TO BE USED FOR 

Z80 MOVE FUNCTION 
; MOVE FUNCTION CODE 
; OFFSET (FROM START OF PTRSBUFS) 

OF PACKET BUFFER TO BE USED FOR 

Z80 START FUNCTION 
; START Z80 FUNCTION CODE 
; .COM FILE STARTING ADDRESS 

; OFFSET (FROM START OF PSEUDO CP/M) 
TO PSEUDO BIOS JUMP TABLE 

; OFFSET (FROM START OF PSEUDO CP/M) 
TO PSEUDO BDOS ENTRY POINT 



F700 PBIOS_ADR EQU 

F600 PBDOS_ADR EQU 

00C3 JUMPINST EQU 

005C FCB_OFFSET EQU 

0000 RELO_OFFSET EQU 

0040 RELO_SEG EQU 

; INTERRUPTS 

OOEO BDOS EQU 

7 

0092 TYPE36SEG_ADR 

0096 TYPE37SEG_ADR 

009C TYPE390FFSET_ADR 

009E TYPE39SEG_ADR 

OOBO TYPE440FFSET_ADR 

00B2 TYPE44SEG_ADR 

0190 TYPE100OFFSET_ADR 

0192 TYPE100SEG_ADR 

0382 TYPE224SEG ADR 
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PCPM_ADR+PBIOS_OFFSET 

; ADDRESS OF PSEUDO BIOS JUMP TABLE 
PCPM_ADR+PBDOS_OFFSET 

; ADDRESS OF PSEUDO BDOS ENTRY POINT 

0C3H ; Z80 JUMP INSTRUCTION 

05CH ; FCB OFFSET 

; LOCATION IN 8088 PRIVATE MEMORY 

40H ; TO RELOCATE . COM-FILE-LOAD CODE 



224 

EQU 36*4+2 

EQU 37*4+2 

EQU 39*4 

EQU 39*4+2 

EQU 44*4 

EQU 44*4+2 

EQU 100*4 

EQU 100*4+2 

EQU 224*4+2 
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GOOD CR EQU ODH 

CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



OOOA 



LF 



EQU 



OAH 



; BDOS FUNCTION NUMBERS 



0007 
0009 
OOOF 
0014 
OOIA 
0033 



FIOB 

FPRINT 

FOPEN 

FREAD 

FDMA 

FDMAB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



7 
9 

15 
20 
26 
51 



GET I/O BYTE 

PRINT STRING 

OPEN FILE 

READ SEQUENTIAL 

SET DMA ADDRESS 

SET DMA SEGMENT BASE 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



I 

. *************************************************** 



CSEG 
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ORG 



; THE FOLLOWING CODE IS RELOCATED TO PRIVATE 8088 MEMORY BEFORE 
; BEING EXECUTED 



0000 E9DE03 

0003 90 

0004 90 

0005 90 



RELOBEG: 
03E1 JMP 
NOP 
NOP 
NOP 



; MUST BE AT OFFSET 



START 



INCLUDE Z80SVC.LIB 
************************************* 

* * 

* Z80 SERVICE ROUTINE * 

* IN 8088 * 

* FOR PC-100 * 

* * 
************************************* 



009E 
009C 
FDOO 
FD86 
FD94 
0090 
0028 



BDOS_SEG 
PZOT EQU 
DEFBUF EQU 
PACKET EQU 
ADCPAC EQU 
FDOSM EQU 
MAXBDOS EQU 



EQU 39*4+2 
39*4 

PB2__ADR + XDEFBUF 
PB2_ADR + XPACKET 
PB2_ADR + XADCPKT 
90H 
28H 



;Highest BDOS function serviced 
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= OOOF 




DPBLEN EQU 15 ;Length of disk parameter block 


0019 




ALVLEN EQU 25 ;Length of allocation vector 


= 0028 




TRNLEN EQU 40 ;Length of maximum translation table 


= FCAO 




PSDPH EQU PB2_ADR+XDPCX ;Pseudo-DPH 


= FCBO 




PSTRN EQU PSDPH+16 ;Pseudo translate table 


= FCD8 




PSDPB EQU PSTRN+TRNLEN ;Pseudo-DPB 


= FCE7 




PSALV EQU PSDPB+DPBLEN ;Pseudo-ALV 






***************************************** 






• * * 






;* Wait for a call from Z80 to bios or * 






;* bdos, then set bx to point to the * 






;* packet. * 






. * * 






.**************************************** 






WAIT_FOR_CALL: 


=0006 E84203 


034B 


CALL WAIT39 ;Actual wait loop 






SERVICE_CALL: 


=0009 83EB04 




SUB BX,4 ;BX was set to packet pointer+4 


CP/M ASMS 6 1.1 


SOURCE: 


Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 


=000C 268B1F 




MOV BX,ES:[BX] ;Put packet address in BX 






;Then fall through 



.**************************************** 
. * * 

I 
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* subroutine to unpack data packet, * 

* call appropriate BIOS or BDOS routine* 

* then repack data to return to Z80 * 

* operation. * 

* * 
**************************************** 



OOOF IE 
0010 33C0 
0012 8ED8 
0014 2E891E9702 
0019 8BF3 
OOIB 8A5408 
OOIE 2E3A169602 
0023 740E 
0025 2E88169602 
002A B108 
002C CDEO 
002E 2E8B369702 
0033 8A24 
0035 8B4C02 
0038 8B5404 



0033 



PACKIN: 

PUSH DS 

XOR AX, AX 

MOV DS,AX 

MOV MAILBOX, BX 

MOV SI,BX 

MOV DL,08[SI] 

CMP DL,IOBLCL 

JE PACKl 

MOV IOBLCL,DL 

MOV CL,8 

INT 224 

MOV Sr, MAILBOX 
PACKl: MOV AH, [SI] 

MOV CX,02[SI] 
MOV DX,04[SI] 



;SAVE CURRENT DS 

;Zero data segment 

;save packet address 

;Packet address is in MAILBOX 

;IOBYTE in packet +8 

;check for changed iobyte 

;skip if it's ok 

;else save it as updated 

;BDOS SET IOBYTE 

;call BDOS 

;restore SI (jic) 

;function code in AH, by the 

;same as Z80 BC 

;same as Z80 DE 



003B 80FC90 
003E 7445 



CMP AH,FDOSM 
0085 JE BDOS80 

BIOS80: 



;is this a BDOS call? 

;go do BDOS if so 

;else fall through to BIOS 



=0040 80EC40 

=0043 B500 

=0045 80FC01 

=0048 7503 004D 

=004A E9D100 OllE 

=004D 80FC10 

=0€50 7502 0054 

=0052 EB18 006C 

=i054 80FC09 

=i)€)57 7503 005C 

=at59 E93001 018C 

=005€ 886401 

=M5F 8BD6 

=ii61 42 

=1062 39 3 200 

CF/M ASMS 6 1.1 SOURCE: 

=0065 CDEO 
=©067 2E891E9402 



SUB AH,40H 
MOV CH,0 
CMP AH,1 
JNE BIOXX 
JMP XINI 
BIOXX: CMP AH^IOH 
JNE BIOS80A 
JMPS YOK 

BIOS80A: 

CMP AH, 9 
JNE BIOS80B 
JMP BSELD 

BIOS80B: 

MOV 01 [SI] ,AH 
MOV DX,SI 
INC DX 
MOV CX,50 
Z80CCP.A86 CONFIG SYSTEM 

INT 224 
PACKUP: MOV BHLD,BX 

YOK: 



=M6C 2E8B1E9402 



MOV BX,BHLD 
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;remove function offset 
;possible word needed 
;WARM BOOT? 

;go away if so 

;SECTRAN? 

;SKIP IF NOT 

;Z80 handles sectran. 

;SELDSK? 

;skip if not 

;go do table move if so 

;BIOS function number. We are going 
;to cheat and use BDOS call 50 
;and the original packet for the 
;BIOS descripter block. 
INIT FOR .COM 

;D0 BDOS direct BIOS call. 
;SAVE BX REG. (Z80 HL) 

; RETURN FROM BDOS 
;0R BIOS 

; RESTORE BX REG. (Z80 HL) 
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0071 2E8B369702 
0076 884401 
0079 895C06 
007C 8BCE 
007E IF 

007F E89102 0313 
0082 E984FF 0009 

BDOS80: 

=0085 51 BDLPl: 
=0086 B500 
=0088 03C9 
008A BBFOOl 
=008D 03D9 
=008F 59 

=0090 2EFFA70000 

XADCS : 

=0095 2EC706990280 
00 

=009C EB07 00A5 

XADC : 

=009E 2EC706990224 



MOV SI, MAILBOX 
MOV 01 [SI] ,AL 
MOV 06 [SI] ,BX 
MOV CX,SI 
POP DS 

CALL XFERPKT 
JMP SERVICE CALL 



; PACKET ADDRESS 

PACKET ADDRESS IN CX 

SEND THE PACKET 

GO WAIT FOR ANOTHER ONE 



PUSH CX 
MOV CH,0 
ADD CX,CX 

MOV BX, OFFSET BDJMPS 
ADD BX,CX 
POP CX 

JMP CS: WORD PTR [BX] 



DO A BDOS FUNCTION 

SAVE THE FUNCTION 

MAKE A JUMP INSTRUCTION 

BEGINNING OF TABLE 
DIRECTOR 

GET THE FUNCTION BACK 
GO DO PRE-CONDITIONING 



;WE HAVE A STRING 
MOV ADCLEN,128 ;0F 128 BYTES OR LESS 

JMPS XADCO 

;PRECOMPENSATION 
MOV ADCLEN,36 ; FOR FCB (36 BYTES) 
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XADCO: 

=00A5 2E89169B02 
=OOAA 50 
=OOAB 33C0 
=OOAD 8ED8 
=OOAF 81FA0008 
=00B3 732A OODF 
=0035 2EC7069D0200 
FD 

=OOBC E83A00 00F9 

=OOBF 80F90A 

=00C2 7510 00D4 

=00C4 26803E00FD7E 

=OOCA 7213 OODF 

=OOCC 26C60600FD7E 

=00D2 EBOB OODF 

=00D4 80F909 XADCOl; 

=00D7 7506 OODF 

CP/M ASM86 1.1 SOURCE: Z80CCP. 



MOV ADCFLG,DX ;SAVE THE ABSOLUTE ADDRESS 
PUSH AX 
XOR AX, AX 
MOV DS,AX 
CMP DX,800H 

JAE XADCl ;'JUMP IF ALL IS WELL 

MOV CS.: WORD PTR ADCDES.DEFBUF ;DEST ADDRESS 

CALL ZADC 

CMP CL,10 ; LIMIT STRINGS IN AND OUT TO 128 BYTES 

JNZ XADCOl ;-NOT READ CONSOLE STRING 

CMP ES: BYTE PTR .DEFBUF,126 ;MAX .GT. 126? 

JB XADCl ;N0, SKIP AHEAD 

MOV ES: BYTE PTR .DEFBUF,126 ;YES, MAKE IT 126. 

JMPS XADCl ;THEN SKIP AHEAD 

CMP CL,9 ; PRINT STRING? 

JNZ XADCl ;N0, SKIP AHEAD 
A86 CONFIG SYSTEM; INIT FOR .COM 



= 00D9 26C6067FFD24 MOV ES: BYTE PTR . DEFBUF+127, * $ ' ;YES, IMPLANT END-STRING fJIC) 

=OODF 58 XADCl: POP AX 

XOK: 

=00E0 51 PUSH CX ;SAVE FUNCTION CODE 
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= 00E1 


52 




PUSH DX 


;SAVE ADDRESS FOR ADC 


= 00E2 


CDEO 




INT 224 


;D0 BDOS FUNCTION 


= 00E4 


5A 




POP DX 


;GET ADDRESS BACK 


= 
= 








; CONTINUE AFTER BDOS 


= 00E5 


2E891E9402 




MOV EHLD,BX 


;SAVE BX REG (Z80 HL) 


= OOEA 


59 




POP CX 


; RESTORE FUNCTION CODE 


=OOEB 


B500 




MOV CH,0 


;MAKE 16 BIT NR 


= OOED 


03C9 




ADD CX,CX 


; DIRECTOR 


=OOEF 


BB4202 




MOV BX, OFFSET BDYJMPS 


;T0 ROUTINE 


=00F2 


03D9 




ADD BX,CX 


; OFFSET TO ROUTINE 


=00F4 


2EFFA70000 




JMP CS: WORD PTR [BX] 


;D0 POST-CONDITIONING 


= 
= 




ZADC: 


; COMMON ROUTINE TO MOVE A BLOCK. SOURCE IS IN DX, DEST AND LENGTH 


= 






;IN ADCDES AND ADCLEN 


RESPECTIVELY 


=00F9 


53 




PUSH BX 


; MOVING TO DO 


= OOFA 


51 




PUSH CX 




=OOFB 


BB94FD 




MOV BX.ADCPAC ;GET : 


PACKET ADDRESS 


= OOFE 


C60722 




MOV BYTE PTR [BX] ,22H 


;MOVE FUNCTION 


=0101 


895702 




MOV 02 [BX] ,DX 


; SOURCE IN DX ON ENTRY 


= 0104 


2E8B169D02 




MOV DX, ADCDES 


; DESTINATION 


= 0109 


895704 




MOV 04 [BX] ,DX 


; ADDRESS 


= 010C 


52 




PUSH DX 


;WE WANT THIS BACK 


= 010D 


2E8B169902 




MOV DX, ADCLEN 


; LENGTH 


= 0112 


895706 




MOV 06 [BX] ,DX 


;FROM ENTRY VARIABLE 


= 0115 


8BCB 




MOV CX,BX 


; INSTRUCTION TO INTERFACE 


= 0117 


E8F901 


0313 


CALL XFERPKT 


;CALL INTERFACE 
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=01 lA 5A 

=011B 59 

=011C 5B 

=011D C3 



POP DX 
POP CX 
POP BX 
RET 



; RESTORE REGS 



=011E E8E501 
=0121 33C0 
=0123 B200 
=0125 BlOO 
=0127 EBB7 



0306 XINI: 



OOEO 



CALL RESETZFLAG 
XOR AX, AX 
MOV DE,0 
MOV CL,0 
JMPS XOK 



CODE TO RELEASE MEMORY 
RESET SYSTEM 



=0129 80FAFF 
=012C 7402 
=012E EBBO 
=0130 51 
=0131 FECA 
=0133 CDEO 
=0135 59 
=0136 OACO 



XDCI: 



0130 
OOEO 



XDCIl: 



CMP DL.OFFH 
JZ XDCIl 
JMPS XOK 
PUSH CX 
DEC DL 
INT 224 
POP CX 
OR AL,AL 



;CPM-80 USES FF FOR STATUS AND INPUT 

;SKIP AHEAD IF FF 

;ELSE EXIT 

;SAVE THE CX REG 

;CL=OFEH FOR STATUS 

;BDOS CALL 

; RESTORE THE CALL NO. 
; CHECK FOR AL=0 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



=0138 7503 013D JNZ XDCI2 

=013A E92FFF 006C JMP YOK 

=013D B2FF XDCI2: MOV DL.OFFH 

=013F EB9F OOEO JMPS XOK 



;SKIP IF NON-ZERO 

;ELSE ALL DONE, AL=0 

; CHARACTER IS READY, GO GET IT 

;FROM BDOS 



YADC: 



; POST-COMPENSATION 



=0141 2E3B169B02 
=0146 7503 014B 
=0148 E921FF 006C 
=0143 50 
=014C 52 

=014D 2E8B169B02 
=0152 2E89169D02 
=0157 5A 

=0158 E89EFF 00F9 
=015B 58 

=015C E90DFF 006C 
=015F OACO 

=0161 7402 0165 
=0163 BOFF 

=0165 E904FF 006C 

=0168 2EA19402 

=016C E9FDFE 006C 

=016F B90F00 
=0172 B8D8FC 
=0175 EB06 017D 

=0177 B91900 
=017A B8E7FC 
=017D 2E8B1E9402 



CMP DX^ADCFLG 
JNE YADCl 
JMP YOK 

YADCl: PUSH AX 
PUSH DX- 
MOV DX.ADCFLG 
MOV ADCDES,DX 
POP DX 
CALL ZADC 

YADC2: POP AX 
JMP YOK 

YGCS: OR AL,AL 
JZ YCGl 
MOV AL.OFFH 

YCGl: JMP YOK 

YLIV: MOV AX.BHLD 
JMP YOK 

YDPB: MOV CX.DPBLEN 
MOV AX,PSDPB 
JMPS YALVX 

YALV: MOV CX,ALVLEN 

MOV AX,PSALV 
YALVX: MOV BX.BHLD 
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;DID WE HAVE TO DO PRECOMPENSATION? 

;EXIT IF NOT 

;ELSE SAVE REGISTERS 

;GET OLD DESTINATION 
;BYE. 

;WE NEED ZERO OR 
;FF. 

;CPM~80 EXPECTS A TO DUPLICATE H. 
;Move DPB to pseudo 

;Move ALV to pseudo 
;Restore BX 



=0182 2EA39402 
=0186 E85100 
=0189 E9E0FE 



OlDA 
006C 



MOV BHLD,AX 
CALL YDPM 
JMP YOK 



=018C 886401 
=018F 8BD6 
=0191 42 
=0192 B93200 
=0195 CDEO 
=0197 OBDB 
=0199 7503 
=019B E9C9FE 
=019E IE 
=019F 52 
=01A0 53 
=01A1 268B1F 
=01A4 B92800 
=01A7 B8B0FC 
=01AA E82D00 
CP/M ASM86 1.1 



BSELD: MOV 01 [SI] ,AH 
MOV DX,SI 
INC DX 
MOV CX,50 
INT 224 
OR BX.BX 
019E JNZ BSELDl 

0067 JMP PACKUP 

BSELDl: PUSH DS 
PUSH DX 
PUSH BX 
MOV BX,ES: [BX] 
MOV CX,TRNLEN 
MOV AX,PSTRN 
OlDA CALL YDPM 



SOURCE: Z80CCP.A86 



CONFIG SYSTEM 



=01AD 5B 
=01AE 83C30A 
=01B1 53 
=01B2 268B1F 
=01B5 B90F00 
=01B8 B8D8FC 



POP BX 

ADD BX^IO 

PUSH BX 

MOV BX,ES: [BX] 

MOV CX,DPBLEN 

MOV AX^PSDPB 
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;Give user pseudo-ALV address 



;BIOS function number. We are going 
;to cheat and use BDOS call 50 
;and the original packet for the 
;BIOS descripter block. 
;D0 BDOS direct BIOS call. 
;Check for zero here 
;Skip if non-zero 

;Else exit with zero to mark error 

;Need it for later 

;Save for reference 

;BX has DPH offset 

;Get translate table address 



;Pseudo-translate address 
;Do move 
INIT FOR .COM 



;DPH address 
;Get DPB address 



OIBB 


E81C00 


OlDA 


CALL YDPM 


OIBE 


5B 




POP BX 


OIBF 


83C304 




ADD BX,4 


01C2 


268B1F 




MOV BX,ES: [BX] 


01C5 


B91900 




MOV CX^ALVLEN 


01C8 


B8E7FC 




MOV AX,PSALV 


OICB 


E80C00 


OlDA 


CALL YDPM 


OICE 


2EC7069402A0 




MOV BHLD,PSDPH 




FC 






01D5 


5A 




POP DX 


01D6 


IF 




POP DS 


01D7 


E992FE 


006C 


JMP YOK 


OlDA 


8BF3 


YDPM: 


MOV SI,BX 


OlDC 


IE 




PUSH DS 


OIDD 


06 




PUSH ES 


OlDE 


8BF8 




MOV Dr,AX 


OlEO 


33C0 




XOR AX, AX 


01E2 


2E893E9402 




MOV BHLD^DI 


01E7 


IF 




POP DS 


01E8 


IE 




PUSH DS 


01E9 


8EC0 




MOV ES,AX 


OlEB 


F3A4 




REP MOVS AL,AL 


OlED 


07 




POP ES 


OlEE 


IF 




POP DS 


OlEF 


C3 




RET 
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;Get ALV address 



;Furnish user with pseudo-DPH 



/Reference 
;DS=0 
;go back to z80 



Routine to move a block 

ENTRY - CX has byte count 

BX has source offset 

AX has destination (absolute) 

ES has source segment 

(shift former es to ds) 
save to restore es 



;move bytes 
;Restore es 



and ds 
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=01F0 


lEOl 


BDJMPS DW 


=01F2 


EOOO 


DW 


=01F4 


EOOO 


DW 


=01F6 


EOOO 


DW 


=01F8 


EOOO 


DW 


=01FA 


EOOO 


DW 


=01 FC 


2901 


DW 


=01FE 


EOOO 


DW 


=0200 


EOOO 


DW 


=0202 


9500 


DW 


=0204 


9500 


DW 


=0206 


EOOO 


DW 


=0208 


EOOO 


DW 


=020A 


EOOO 


DW 


=020C 


EOOO 


DW 


=020E 


9E00 


DW 


=0210 


9E00 


DW 


=0212 


9E00 


DW 


=0214 


EOOO 


DW 


CP/M ASMS 6 1.1 


SOURCE: Z80CCP.A86 


= 0216 


9E00 


DW 


=0218 


9E00 


DW 


=021A 


9E00 


DW 


=021C 


9E00 


DW 


=021E 


9E00 


DW 


=0220 


EOOO 


DW 



XINI 


;0 


XOK 


;1 


XOK 


;2 


XOK 


;3 


XOK 


;4 


XOK 


;5 


XDCI 


;6 


XOK 


;7 


XOK 


;8 


XADCS 


;9 


XADCS 


;10 


XOK 


;ll 


XOK 


;12 


XOK 


;13 


XOK 


;14 


XADC 


;15 


XADC 


;16 


XADC 


;17 


XOK 


;18 



CONFIG SYSTEM; INIT FOR .COM 



XADC 


;19 


XADC 


;20 


XADC 


;21 


XADC 


;22 


XADC 


;23 


XOK 


;24 
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=0222 EOOO 
=0224 EOOO 
=0226 EOOO 
=0228 EOOO 
=022A EOOO 
=022C 9E00 
=022E EOOO 
=0230 EOOO 
=0232 9E00 
=0234 9E00 
=0236 9E00 
=0238 9E00 
=023A EOOO 
=023C EOOO 
=023E EOOO 
=0240 9E00 



DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 



XOK 

XOK 

XOK 

XOK 

XOK 

XADC 

XOK 

XOK 

XADC 

XADC 

XADC 

XADC 

XOK 

XOK 

XOK 

XADC 



?25 
;26 
;27 
;28 
r29 
r30 
;31 
;32 
f33 
!34 
f35 
^36 
;37 
;38 
;39 
;40 



=0242 6C00 

=0244 6C00 

=0246 6C00 

=0248 6C00 

=024A 6C00 

=024C 6C00 

=024E 6C00 

=0250 6C00 

=0252 6C00 

=0254 4101 



BDYJMPS DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 



YOK 
YOK 
YOK 
YOK 
YOK 
YOK 
YOK 
YOK 
YOK 
YADC 
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=0256 


4101 


DW 


YADC 


;10 


=0258 


5F01 


DW 


YGCS 


;ll 


=025A 


6C00 


DW 


YOK 


;12 


=025C 


6C00 


DW 


YOK 


;13 


=025E 


6C00 


DW 


YOK 


;14 


=0260 


4101 


DW 


YADC 


;15 


=0262 


4101 


DW 


YADC 


;16 


= 0264 


4101 


DW 


YADC 


;17 


=0266 


6C00 


DW 


YOK 


;18 


=0268 


4101 


DW 


YADC 


;19 


=026A 


4101 


DW 


YADC 


;20 


=026C 


4101 


DW 


YADC 


;21 


=026E 


4101 


DW 


YADC 


;22 


=0270 


4101 


DW 


YADC 


;23 


=0272 


6801 


DW 


YLIV 


;24 


=0274 


6C00 


DW 


YOK 


;25 


=0276 


6C00 


DW 


YOK 


;26 


=0278 


7701 


DW 


YALV 


;27 


=027A 


6C00 


DW 


YOK 


;28 


CP/M ASM86 1.1 


SOURCE: Z80CCP.A86 


CONFIG 


SYSTEM 



=027C 6C00 DW YOK ;29 

=027E 4101 DW YADC ;30 

=0280 6F01 DW YDPB ;31 

=0282 6C00 DW YOK ;32 

=0284 4101 DW YADC ;33 

=0286 4101 DW YADC ;34 
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=0288 4101 

=028A 4101 

=028C 6C00 

=028E 6C00 

=0290 6C00 

=0292 4101 



DW 
DW 
DW 
DW 
DW 
DW 



YADC 

YADC 

YOK 

YOK 

YOK 

YADC 



35 
36 
37 
38 
39 
40 



=0294 0000 

=0296 00 

=0297 0000 

=0299 0000 

=029B 0000 

=029D 0000 

=029F 09 

=02A0 00000100 



BHLD DW 
lOBLCL DB 
MAILBOX DW 
ADCLEN DW 
ADCFLG DW 
ADCDES DW 
TMP50 DB 
DW 









9 

0,01 



; SAVE LOG FOR BX REG 
; LOCAL COPY OF lOBYTE 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



02A4 8CC8 
02A6 BEDS 

02A8 BAOOOl 



EJECT 

RELOSTART: 
MOV 
MOV 

MOV 



AX,CS 
DS,AX 

DX,STARTCOM 
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LOADCOM : 



02AB 


E84300 


02F1 


CALL 


DMASET 


r 


SET DMA ADR 


02AE 


52 




PUSH 


DX 






02AF 


E84700 


02F9 


CALL 


READCOM 


/ 


READ 


02B2 


5A 




POP 


DX 






02B3 


3C01 




CMP 


AE,01H 


/ 


EOF? 


02B5 


741B 


02D2 


JE 


LOADEND 


t 


YES 


02B7 


81C28000 




ADD 


DX, 80H 






02BB 


2E3B16A403 




CMP 


DX^MAXADR 


/ 


TPA OVERFLOW? 


02C0 


7703 


02C5 


JA 


LOADERR 


7 


YES 


02C2 


E9E6FF 


02AB 


JMP 


LOADCOM 







LOADERR: 



02C5 BAC903 
02C8 E82A00 
02CB E83800 
02CE B8FF00 
02D1 CB 



02F5 
0306 



MOV 

CALL 

CALL 

MOV 

RETF 



DX, OFFSET COMERR 
SPRINT 
RESETZFLAG 
AX, 255 



; RETURN TO CCP WITH ERROR 



LOADEND: 



02D2 BA8000 
02D5 E81900 



02F1 



MOV 
CALL 



DX,80H 
DMASET 



; SET DEFAULT BUFFER 



02D8 33C0 XOR AX, AX 

02DA 8EC0 MOV ES,AX 

02DC BB86FD MOV BX , PB2__ADR+STARTPKT_0FFSET 

02DF 26C60721 MOV ES:BYTE PTR [BX] , STARTFC 

02E3 26C747020001 MOV ES:WORD PTR 2 [BX] , STARTCOM 
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02E9 8BCB 
02EB E82500 

02EE E915FD 



0313 



MOV CX,BX 
CALL XFERPKT 



LOADSTOP: 
0006 JMP WAIT FOR CALL 



02F1 BllA 
02F3 EB09 



DMASET: 



02FE 



MOV CL,FDMA 
JMPS INTBDOS 



02F5 B109 
02F7 EB05 



SPRINT: 



02FE 



MOV 
JMPS 



CL^FPRINT 
INTBDOS 



02F9 B114 
02FB BAA803 



READCOM: 



MOV CL,FREAD 

MOV DX, OFFSET COMFCB 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



INTBDOS: 

02FE CDEO INT BDOS 

0300 C3 RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



CONFIG SYSTEM; INIT FOR .COM 



CX = PACKET POINTER 
EXECUTE .COM FILE 

GO WAIT FOR BDOS OR BIOS CALL 
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EJECT 



************************************************ 



0301 B8FFFF 
0304 EB02 



SET Z80-RUNNING-FLAG (THIS IS TO INDICATE TO BDOS THAT THE 
DMA ADDRES IS IN Z80 SPACE) 

NOTE: THESE ROUTINES DO NOT CHANGE THE SETTING OF CARRY FLAG 



SETZFLAG: 



0308 



MOV 
JMPS 



AX, TRUE 
SETZFl 



0306 33C0 



RESETZFLAG: 
XOR 



AX, AX 



SETZFl: 



0308 50 

0309 E87F00 
030C 4B 
030D 4B 
030E 58 
030F 268907 
0312 C3 



038B 



PUSH 

CALL 

DEC 

DEC 

POP 

MOV 

RET 



AX 

FINDZOT 

BX 

BX 

AX 

ES: [BX]',AX 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



CONFIG SYSTEM; INIT FOR .COM 
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EJECT 



0313 2E8E06A203 
0318 2E8B1EA003 
031D 26C7070000 
0322 E80200 
0325 EB24 



SEND PACKET AND WAIT FOR Z80 TO FINISH 



ENTRY: CX = PACKET ADDRESS 



XFERPKT: 



0327 
034B 



MOV ES,ZOTSEG 

MOV BX,ZOTADR 

MOV ES:WORD PTR [BX] , FALSE 

CALL SENDPKT 

JMPS WAIT39 



; RESET DONE FLAG 



************************************************** 



SEND PACKET TO Z80 



ENTRY: CX = PACKET ADDRESS 



0002 
0000 
0080 



GSCR EQU 2 
INTZ80 EQU 
BIT7 EQU 80H 
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SENDPKT: 



0327 2E8E06A603 
032C BB4725 
032F 268B1F 
0332 81C3FE02 



MOV ES,PARM_SEG 

MOV BX/BIOS_OFFSET+PBADR_OFFSET 

MOV BX,ES: [BX] 

ADD BX,I88PKT OFFSET 



0336 33C0 
0338 8EC0 
033A 26890F 



XOR 
MOV 
MOV 



AX, AX 
ES,AX 

ES: [BX] ,CX 



; STORE POINTER 



; SIGNAL Z80 THEN WAIT FOR Z80 TO ACKNOWLEDGE 



033D E600 

033F E402 
0341 A880 
0343 74FA 
0345 26C7070000 
034A C3 



OUT 
SENDPKIO: 
IN 

TEST 
033F JZ 
MOV 
RET 



INTZ8a,AL 

AL^GSCR 
AL,BIT7 
SENDPKIO 

ES: WORD PTR [BX] ,0 



INTERRUPT Z80 

GET Z80 STATUS 
INTERRUPT STILL PENDING? 

YES - CHECK AGAIN 
THEN ZERO OUT THE PACKET POINTER 



***************************************************** 



WAIT FOR 280 TO FINISH 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 
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WAIT39: 



034B 2E8E06A203 MOV 

0350 2E8B1EA003 MOV 

WAIT39__LOOP: 

0355 FA CLI 

0356 26F707FFFF TEST 
035B 752C 0389 JNZ 
035D 26F647FBFF TEST 
0362 7421 0385 JZ 

0364 06 PUSH 

0365 53 PUSH 

0366 BF0400 MOV 
0369 CD28 INT 
036B 84C9 TEST 
036D 740D 037C JZ 
036F 33C0 XOR 
0371 8EC0 MOV 
0373 BBOOFD MOV 
0376 26808FE70201 OR 

WAIT39_NEXT: 

037C 5B POP 

037D 07 POP 

037E 26C647FB00 MOV 

0383 EBDO 0355 JMPS 

WAIT39_HALT: 

0385 FB STI 

0386 F4 HLT 



ES,ZOTSEG 
BX,ZOTADR 



ES:WORD PTR[BX],TRUE 
WAIT39__DONE 

ESiBYTE PTR .CICCK [BX]',TRUE 

WAIT39_HALT 

ES 

BX 

DI,4 ;ROM ROUTINE TO GET CRT STATUS 

40 ; 

CE,CL 

WAIT39_NEXT 
AX, AX 
ES,AX 

BX,PB2__ADR 

ES:BYTE PTR . XCSFLAG [BX]' , BIOCS 

BX 
ES 

ESiBYTE PTR .CICCK[BX],0 
WAIT39 LOOP 
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0387 EBCC 

0389 FB 
038A C3 



0355 JMPS 
WAIT39_DONE: 
STI 
RET 



WAIT39 LOOP 



FINDZOT: 



038B 33C0 
038D 8EC0 
038F BB9E00 
0392 268B07 
0395 BB9C00 
0398 268B1F 
039B 4B 
039C 4B 
039D 8EC0 
039F C3 



XOR AX, AX 

MOV ES,AX 

MOV BX , TYPE3 9SEG__ADR 

MOV AX,ES:[BX] 

MOV BX , TYPE3 90FFSET_ADR 

MOV BX,ES:[BX] 

DEC BX 

DEC BX 

MOV ES,AX 

RET 



; RETURN WITH ZOT = ES : [BX] 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



. ***************************************************** 



03 AO 
03A2 



ZOT ADR RW 
ZOTSEG RW 



;ADDRESS OF ZOT 
; SEGMENT OF ZOT 
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3A4 
03A6 
03A8 



MAXADR RW 
PARM_SEG RW 
COMFCB RB 



1 
1 

33 



LAST DMA ADDRESS BEFORE TPA OVERFLOW 
SEGMENT FOR CURRENT CPM 
.COM FILE FCB 



03C9 0D0A43414E4E 
4F54204C4F41 
44202E434F4D 
2046494C4524 



COMERR DB 



CR,LF, 'CANNOT LOAD .COM FILE$ ' 



03E1 RELOEND EQU $ ; END OF CODE TO BE RELOCATED 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



******************************************************** 
************************************************************** 



03E1 2E8C06A603 
03E6 891E0401 



START: 



MOV PARM_SEG,ES 
MOV PARM OFFSET, BX 



03EA 268B1F 
03ED 268A470A 
03F1 247F 



MOV BX,ES:[BX] ; GET FCB OFFSET 

MOV AE,ES:BYTE PTR 10 [BX] ; GET MIDDLE LETTER OF TYPE 

AND AL,07FH ; KILL UPPER BYTE 
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03F3 3C4D 
03F5 7477 



046E 



CMP 
JE 



CONFGCMD 



; .CMD FILE? 
YES 



; .COM FILE WAS REQUESTED 



03F7 BB4725 
03FA 268B1F 
03FD 81C3FA02 
0401 33C0 
0403 8EC0 
0405 268B07 
0408 OBCO 
040A 7520 



BX.BIOS OFFSET+PBADR OFFSET 



042C 



MOV 

MOV BX,ES:[BX] 

ADD BX , PCPMADR_OFFSET 

XOR AX, AX 

MOV ES.AX 

MOV AX,ES:[BX] 

OR AX, AX 

JNZ INITCOM 



; GET ADR OF DATA BLOCK 

; GET ADR OF PSEUDO CPM INDICATOR 



; IS PSEUDO CP/M LOADED ALREADY? 
YES 



; CHANGE FROM CONFIGURATION #1 TO CONFIGURATION #2 



040C E8CB00 



040F 727F 



04DA 



0490 



CALL 



JC 



READPCPM 



RETERR 



READ PSEUDO CP/M AND ITS 
PRIMITIVE ROUTINES 
ERROR 



0411 E80C01 
0414 E82A01 



0520 
0541 



CALL 
CALL 



MOVEBLOCKl 
MOVECPMl 



; MOVE POINTERS/BUFFERS DATA BLOCK 
; MOVE CP/M- 8 6/80 



0417 E8AA01 
041A E8B501 



05C4 
05D2 



; SET ALL POINTERS/VALUES VALID 



CALL 
CALL 



SETPBADR 
SETPCPM 



; SET POINTER TO DATA BLOCK IN CP/M 
; INDICATE PSEUDO CP/M IS LOADED 



; NOW TRANSFER CONTROL TO NEW MODULES 
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041D E8D001 
0420 E8F601 

0423 8ED0 
0425 AlOOOl 
0428 2EA3A603 



05F0 
0619 



CALL 
CALL 



SETZ80SHR 
SET8088 



MOV SS,AX 

MOV AX,NEWCPM_SEG 

MOV FARM SEG,AX 



ADJUST Z80 VECTORS AND STACK POINTER 
ADJUST 8088 VECTORS AND 

CCP RETURN ADDRESS 
ADJUST STACK SEGMENT 



; INITIALIZE Z80 MEMORY AND EXECUTE .COM FILE 



042C E85CFF 
042F 2E8C06A203 



INITCOM: 
038B CALL 
MOV 



FINDZOT 
ZOTSEG,ES 



; ### VER 1.0.4 
; ### VER 1.0.4 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



CONFIG SYSTEM; INIT FOR .COM 



0434 


2E891EA003 




MOV 


ZOTADR,BX 


; ### VER 1.0.4 




0439 


E81302 


064F 


CALL 


INITZL07 


; INITIALIZE Z80 LOCATIONS 0- 


7 


043C 


E88502 


06C4 


CALL 


INITFCBBUF 


; INITIALIZE FCB AND DEFAULT 


BUFFER 


043F 


E8B802 


06FA 


CALL 


INITVECTOR 


; INITIALIZE PBDOS VECTOR 




0442 


E8C902 


OTOE 


CALL 


SAVEFCB 


; SAVE .COM FILE FCB 










; READY 


.COM FILE FOR LOADING 






0445 


BAAS 03 




MOV 


DX, OFFSET COMFCB 


; OPEN .COM FILE 




0448 


IE 




PUSH 


DS 






0449 


8CC8 




MOV 


AX,CS 


; COMFCB IS IN CSEG 




044B 


8ED8 




MOV 


DS,AX 






044D 


E80D03 


075D 


CALL 


OPENFILE 
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0450 IF 



POP DS 



0451 E8ADFE 
0454 BAOOOO 
0457 E80703 



0301 



0761 



CALL SETZFLAG 
MOV DX,0 
CALL SETDMAB 



045A AlOEOl 
045D 2D8000 
0460 2EA3A403 



MOV AX,PCPMVECTOR 
SUB AX, BOH 

MOV MAXADR^AX 



; SAVE MAX LOAD ADR FOR .COM FILE 



0464 E8E602 



074D 



CALL INIDPH 



.•INITIALIZE PSEUDO-DPH 



0467 E8CB02 



0735 



CALL RELOCATE 



; RELOCATE LOAD CODE TO 
; PRIVATE 8088 MEMORY 



046A FF2E1001 



JMPF DWORD PTR JMPF OFFSET ; LOAD .COM FILE AND EXECUTE IT 



; CHANGE FROM CONFIGURATION #2 TO CONFIGURATION #1 



046E E890FE 
0471 E82000 
0474 E88FFE 
0477 7217 



CONFGCMD: 
0301 CALL 
0494 CALL 
0306 CALL 
0490 JC 



SETZFLAG 
READPVT 
RESETZFLAG 
RETERR 



; READ PRMTVPVT.SYS 



ERROR 



0479 E8AC00 
047C E8F500 



0528 
0574 



CALL 
CALL 



M0VEBL0CK2 
M0VECPM2 



; MOVE POINTERS/BUFFERS DATA BLOCK 
; MOVE CP/M-86/80 
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047F E84201 
0482 E85201 



05C4 
05D7 



; SET ALL POINTERS/VALUES VALID 



CALL 
CALL 



SETPBADR 
RESETPCPM 



; SET POINTER TO DATA BLOCK IN CP/M 
; INDICATE PSEUDO CP/M NOT LOADED 



; NOW TRANSFTER CONTROL TO NEW MODULES 



0485 E86D01 
0488 E88E01 

048B 8ED0 



05F5 
0619 



CALL 
CALL 

MOV 



SETZ80PVT 
SET8088 

SS^AX 



ADJUST Z80 VECTORS AND STACK POINTER 
ADJUST 8088 VECTORS AND 

CCP RETURN ADDRESS 
ADJUST STACK SEGMENT 



048D 33C0 XOR 
048F CB RETF 
CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



AX, AX 

; RETURN TO CCP TO RUN .CMD FILE 
CONFIG SYSTEM; INIT FOR .COM 



RETERR: 



0490 B8FF00 
0493 CB 



MOV 
RETF 



AX, 255 



; RETURN TO CCP WITH ERROR 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



. **************************************************** 
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0494 2E8E06A603 
0499 8B1E0401 
049D 268A4703 
04A1 FECO 
04A3 A22401 



READ PRMTVPVT.SYS INTO PRIVATE Z80 MEMORY 

(Z80 RUNNING FLAG MUST BE SET BEFORE ENTERING ROUTINE AND MUST 
BE RESET AFTER EXITING) 

ENTRY: NONE 

EXIT: CF=1 = ERROR (MSG ALREADY PRINTED) 



READPVT : 



MOV ES,PARM_SEG 

MOV BX,PARM_OFFSET 

MOV AL,ES:3[BX] 

INC AL 

MOV PRMTVFCB,AL 



; GET BOOT DRIVE 



; SET FCB DISK DRIVE 



04A6 BA2401 
04A9 E8B102 
04AC FECO 
04AE 7422 



075D 



04D2 



MOV DX, OFFSET PRMTVFCB 

CALL OPENFILE 

INC AL 

JZ READPERR 



; GOOD FILE? 
NO 



04B0 BAOOOO 
04B3 E8AB02 



0761 



MOV 
CALL 



DX,0 
SETDMAB 



04B6 BAOOOl 

04B9 E8A902 
04BC 52 
04BD BA2401 



MOV 

READP2 : 
0765 CALL 
PUSH 
MOV 



DX , PRMTV1_ADR 

SETDMA 
DX 

DX, OFFSET PRMTVFCB 



; SET DMA OFFSET FOR 
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04C0 


E8A602 


0769 


CALL 


READFILE 


r 


. . . NEXT SECTOR READ 


04C3 


5 A 




POP 


DX 






04C4 


3C01 




CMP 


AL,01H 


r 


EOF? 


04C6 


7407 


04CF 


JZ 


READPEND 


f 


YES 


04C8 


81C28000 




ADD 


DX,80H 


1 


ADDRESS FOR NEXT RECORD 


04CC 


E9EAFF 


04B9 


JMP 


READP2 












READPEND: 








04CF 


33C0 




XOR 


AX, AX 


? 


RESET CARRY 


04D1 


C3 




RET 














READPERR: 








04D2 


BA6601 




MOV 


DX, OFFSET PRMTVERR 






04D5 


E89902 


0771 


CALL 


PRTSTRING 






04D8 


F9 




STC 




? 


SET CARRY 


04D9 


C3 




RET 









CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



READ PSEUDO CP/M AND ITS PRIMITIVE ROUTINES (Z80.SYS) 
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04DA 2E8E06A603 
04DF 8B1E0401 
04E3 268A4703 
04E7 FECO 
04E9 A24501 



ENTRY: NONE 

EXIT: CF=1 = ERROR (MSG ALREADY PRINTED) 

CF=0 = NORMAL 

AX = PSEUDO CP/M LOAD ADDRESS 



READPCPM: 

MOV 
MOV 
MOV 
INC 
MOV 



ES,PARM_SEG 
BX,PARM_OFFSET 
AL,ES:3[BX] 
AL 

Z80FCB,AL 



; GET BOOT DRIVE 



; SET FCB DISK DRIVE 



04EC BA4501 
04EF E86B02 
04F2 FECO 
04F4 7422 



075D 



0518 



MOV DX, OFFSET Z80FCB 

CALL OPENFILE 

INC AL 

JZ READCERR 



; GOOD FILE? 
NO 



04F6 BAOOOO 
04F9 E86502 



0761 



MOV 
CALL 



DX,0 
SETDMAB 



04FC BA00F6 

04FF E86302 

0502 52 

0503 BA4501 
0506 E86002 



MOV 

READCl: 
0765 CALL 
PUSH 
MOV 

0769 CALL 



DX,PCPM__ADR 

SETDMA 
DX 

DX, OFFSET Z80FCB 
READFILE 



; SET DMA OFFSET FOR 



NEXT SECTOR READ 
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0509 5A 
050A 3C01 

050C 7407 0515 

050E 81C28000 

0512 E9EAFF 04FF 



POP 

CMP 

JZ 

ADD 

JMP 



DX 

AL.OIH 
READCEND 
DX,80H 
READCl 



EOF? 
YES 

ADDRESS FOR NEXT RECORD 



0515 33C0 
0517 C3 



READCEND: 

XOR 
RET 



AX, AX 



; RESET CARRY 



0518 BA9501 
051B E85302 



READCERR: 

MOV 

0771 CALL 



DX, OFFSET PCPMERR 
PRTSTRING 



051E F9 
051F C3 



STC 
RET 



; SET CARRY 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



***************************************************** 



MOVE POINTERS/BUFFERS DATA BLOCK 



MOVEBLOCKl: 
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0520 BE003A 
0523 BFOOFD 

0526 EB06 052E 



MOV 
MOV 
JMPS 



Sr,PBl_ADR 
Dr,PB2_ADR 
MOVEBl 



0528 BEOOFD 
052B BF003A 



M0VEBL0CK2: 
MOV 
MOV 



Sr,PB2_ADR 
Dr,PBl ADR 



052E 893E0201 



MOVEBl: 



MOV 



NEWPB ADR.DI 



; SAVE POINTER TO NEW BLOCK 



0532 IE 

0533 33C0 
0535 BEDS 
0537 8EC0 
0539 B90003 
053C FC 
053D F3A4 
053F IF 



PUSH 
XOR 
MOV 
MOV 
MOV 
CLD 
REP MOVS 
POP 



DS 

AX, AX 
DS,AX 
ES,AX 

CX,PB1_LEN 

AL,AL 
DS 



; MOVE DATA BLOCK 



0540 C3 



RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



• *********************************************** 
t 
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0541 2E8E06A603 
0546 BB4725 

0549 268B1F 
054C 81C3F802 

0550 33C0 
0552 8EC0 
0554 268B07 
0557 OBCO 
0559 750A 



MOVE CP/M-86/80 AND ADJUST MEMORY REGION TABLE 



MOVECPMl : 



0565 



MOV 

MOV 

MOV 

ADD 

XOR 

MOV 

MOV 

OR 

JNZ 



ES,PARM__SEG 

BX,BIOS OFFSET+PBADR OFFSET 



BX.ES: [BX] 

BX,MEMSIZE_OFFSET 

AX, AX 

ES,AX 

AX.ES: [BX] 

AX, AX 

MCPMIA 



; GET ADR OF DATA BLOCK 
; GET ADR OF MEMORY SIZE 



GET MEMORY SIZE 
LARGE SYSTEM? 
YES 



055B B8000C 
055E 8EC0 
0560 B8C00B 
0563 EB08 

0565 B80010 
0568 8EC0 
056A B8200F 

056D 50 
056E B84000 

0571 50 

0572 EB23 



MOV 
MOV 
MOV 

056D JMPS 
MCPMIA: 

MOV 
MOV 
MOV 

MCPMIB: 

PUSH 

MOV 

PUSH 

0597 JMPS 



AX,CPM2A_SEG 
ES,AX 

AX,TPA2A_LEN 
MCPMIB 

AX,CPM2B_SEG 
ES,AX 

AX,TPA2B_LEN 
AX 

AX,TPABEG2_SEG 
AX 

MCPM2 



; SET DESTINATION SEGMENT 
; SET TPA LENGTH 



; SET DESTINATION SEGMENT 
; SET TPA LENGTH 



; SET TPA START 



Page 42 



M0VECPM2: 



0574 


2E8E06A603 




MOV 


ES,PARM__SEG 




0579 


BB4725 




MOV 


BX,BIOS_OFFSET+PBADR_OFFSET 




057C 


268B1F 




MOV 


BX,ES: [BX] ; GET 


ADR OF DATA BLOCK 


057F 


81C3F802 




ADD 


BX,MEMSIZE_OFFSET ; GET 


ADR OF MEMORY SIZE 


0583 


33C0 




XOR 


AX, AX 




0585 


8EC0 




MOV 


ES,AX 




0587 


268B07 




MOV 


AX,ES: [BX] ; GET 


#ADDITIONAL PARAGRAPHS 


058A 


05300C 




ADD 


AX,TPA1_LEN ; SET 


TPA LENGTH 


058D 


50 




PUSH 


AX 




058E 


B8D003 




MOV 


AX,TPABEG1_SEG ; SET 


TPA START 


0591 


50 




PUSH 


AX 




0592 


B84000 




MOV 


AX,CPM1_SEG 




0595 


8EC0 




MOV 


ES,AX ; SET 


DESTINATION SEGMENT 






MCPM2: 








0597 


IE 




PUSH 


DS 




0598 


2E8E1EA603 




MOV 


DS,PARM_SEG ; GET 


CURRENT CP/M SEGMENT 


059D 


BEOOOO 




MOV 


sr,o 




05A0 


BFOOOO 




MOV 


Dr,o 




05A3 


B90036 




MOV 


CX,CPM1_LEN 




CP/M ASMS 6 1.1 SOURCE: 


Z80CCP.A86 


CONFIG SYSTEM; INIT FOR .COM 




05A6 


FC 




CLD 






05A7 


F3A4 


REP 


MOVS 


AL,AL 




05A9 


IF 




POP 


DS 
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05AA 8C060001 MOV NEWCPM_SEG, ES ; SAVE SEGMENT OF NEW CP/M 

05AE BB4525 MOV BX, BIOS_OFFSET+SEGTBL_OFFSET 

05B1 268B1F MOV BX,ES:[BX] ; GET SEG TBL OFFSET 

05B4 58 POP AX 

05B5 26894701 MOV ES:1[BX],AX ; SET START OF 1ST SEGMENT 

05B9 58 POP AX 

05BA 26894703 MOV ES:3[BX],AX ; SET LENGTH OF 1ST SEGMENT 

; IGNORE 2ND SEGMENT FOR 

CONFIGURATION #2 ~ LARGE SYSTEM 
05BE 268C060222 MOV ES : WORD PTR .BIOSCS OFFSET, ES ; STASH NEW BIOS CS 



05C3 C3 RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



SET CP/M'S POINTER TO POINTERS/BUFFERS DATA BLOCK 



05C4 8E060001 



SETPBADR: 

MOV ES,NEWCPM_SEG 
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©5C8 BB4725 
©SCB A10201 
§5CE 268907 



MOV BX/BIOS_OFFSET+PBADR_OFFSET 
MOV AX,NEWPB_ADR 
MOV ES:[BXrfAX 



iSDl C3 



RET 



05D2 BA00F6 
EB03 



****************** *****:«r4r4r* ********* ***4r4r****:llr*** 



INDICATE THAT PSEUDO CP/M IS LOADED 



SETPCPM: 



05DA 



MOV DX,PCPM_ADR 
JMPS PCPMl 



05D7 BAOOOO 



INDICATE THAT PSEUDO CP/M IS NOT LOADED 

RESETPCPM: 

MOV DX,0 



PCPMl: 



05DA 8E060001 
05DE BB4725 
05E1 268B1F 
05E4 81C3FA02 
05E8 33C0 
05EA 8EC0 



MOV ES,NEWCPM_SEG 

MOV BX,BIOS_OFFSET+PBADR_OFFSET 

MOV BX,ES:[BX] ; GET ADR OF DATA BLOCK 

ADD BX,PCPMADR_OFFSET ; GET ADR OF PCPM LOAD ADR 

XOR AX, AX 

MOV ES,AX 
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05EC 268917 MOV ES:[BX],DX 



05EF C3 RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



**************************************************** 



05F0 BA03F6 
05F3 EB03 



ADJUST Z80 INTERRUPT VECTORS, STACK POINTER 



SETZ80SHR: 
MOV 

05F8 JMPS 



DX,PRMTV2_ADR 
RESETPl 



05F5 BAOOOl 



SETZ80PVT: 
MOV 



DX.PRMTVl ADR 



RESETPl : 



05F8 2E8E06A603 
05FD BB4725 
0600 268B1F 
0603 81C38600 
0607 33C0 
0609 8EC0 



MOV ES,PARM_SEG 

MOV BX,BIOS_OFFSET+PBADR_OFFSET 

MOV BX,ES:[BX] ; GET ADR OF DATA BLOCK 

ADD BX,STARTPKT_OFFSET ; GET ADR OF PACKET BUFFER TO USE 

XOR AX, AX 

MOV ES,AX 
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060B 26C60721 
060F 26895702 



MOV ESrBYTE PTR [BX] ^STARTFC 

MOV ES:2[BX],DX ; SET Z80 START ADR 



0613 8BCB 
0615 EBOFFD 



0327 



MOV 
CALL 



CX,BX 
SENDPKT 



; CX = PACKET POINTER 

; ADJUST VECTORS, STACK POINTER 

; (Z80 WILL NOT SEND INTERRUPT BACK) 



0618 C3 



RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 

; ADJUST 8088 INTERRUPT VECTORS AND CP/M RETURN 
; (AFTER EXITING, SS MUST BE SET TO VALUE IN AX) 

; THIS ROUTINE ASSUMES THAT CP/M*S CS=DS=SS 

; AND THAT SP+4 CONTAINS THE CSEG VALUE FOR A RETURN FAR TO CCP 
SET8088: 

0619 33C0 XOR AX, AX 

061B 8EC0 MOV ES,AX 
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061D 


AlOOOl 


MOV 


AX,NEWCPM_SEG 


0620 


FA 


CLI 




0621 


BB9200 


MOV 


BX,TYPE36SEG_ADR 


0624 


268907 


MOV 


ES: [BX]',AX 


0627 


BB9600 


MOV 


BX,TYPE37SEG_ADR 


062A 


268907 


MOV 


ES: [BX]',AX 


062D 


BB9E00 


MOV 


BX,TYPE39SEG_ADR 


0630 


268907 


MOV 


ES: [BXJ^AX 


0633 


BBB200 


MOV 


BX,TYPE44SEG_ADR 


0636 


268907 


MOV 


ES: [BX]',AX 


0639 


BB9201 


MOV 


BX,TYPE100SEG_ADR 


063C 


268907 


MOV 


ES: [BX]\AX 


063F 


BB8203 


MOV 


BX , TYPE 2 2 4 S EG_ADR 


0642 


268907 


MOV 


ES: [BX]',AX 


0645 


FB 


STI 




0646 


8EC0 


MOV 


ES,AX 


0648 


8BDC 


MOV 


BX,SP 


064A 


26894704 


MOV 


ES:4 [BX] ,AX 


064E 


C3 


RET 





; GET SEGMENT VALUE 



; SET RETURN TO NEW CP/M SEGMENT 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



CONFIG SYSTEM; INIT FOR .COM 



EJECT 
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**:«?**************************************** 







• TNTTAr.T7F 7ftfl 

f J. IM ± ±r\Xj± it El £jO\J 












INITZL07: 








064F 


B803F7 


MOV 


AX,PBI0S_ADR+3 


7 


GET ADDRESS OF PSEUDO BIOS 


0652 


BB0601 


MOV 


BX, OFFSET BUFFER 






0655 


C607C3 


MOV 


BYTE PTR [BX]^ JUMPINST 




SET ''JMP . . . 


0658 


894701 


MOV 


1 [BX] ,AX 


7 


. . . PBIOS+3 * 


65B 


U KJ \J 1. \J J. 


n76D CALL 


GETIOB 


7 


GET lOBYTE IN AL 


065E 


2E8E06A603 


MOV 


ES,PARM_SEG 






0663 


8B1E0401 


MOV 


BX,PARM__OFFSET 






0667 


268A6702 


MOV 


AH,ES:2 [BX] 




GET CURRENT DISK 


066B 


BB0601 


MOV 


BX, OFFSET BUFFER 






066E 


894703 


MOV 


3 [BX] ,AX 


7 


SET LOCATIONS 3-4 










7 


COMPUTE LOCATION OF PBDOS VECa 


0671 


BB4525 


MOV 


BX,BIOS OFFSET+SEGTBL 


OFFSET 


0674 


268B1F 


MOV 


BX,ES: [BX] 






0677 


268B4701 


MOV 


AX,ES:1[BX] 


7 


GET START OF 1ST SEGMENT 


067B 


26034703 


ADD 


AX,E&:3[BX] 


7 


ADD LENGTH OF 1ST SEGMENT 


067F 


BIO 4 


MOV 


CL,4 






0681 


D3E0 


SHL 


AX^CL 






0683 


2DFA00 


SUB 


AX,100H-6H 






0686 


A30E01 


MOV 


PCPMVECTOR,AX 


7 


SAVE LOCATION OF PBDOS VECTOR 


0689 


BB0601 


MOV 


BX, OFFSET BUFFER 
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068C C64705C3 
0690 894706 



MOV BYTE PTR 5 [ BX] , JUMPINST ; SET ^JMP 

MOV 6[BX],AX ; ... PBDOS-VECTOR ' 



0693 BB4725 
0696 268B1F 
0699 81C39400 
069D 33C0 
069F 8EC0 



MOV BX,BIOS_OFFSET+PBADR_OFFSET 

MOV BX,ES:[BX] ; GET ADP OF DATA BLOCK 

ADD BX,MOVEPKT_OFFSET ; GET ADR OF PACKET BUFFER TO USE 

XOR AX, AX 

MOV ES,AX 



06A1 26C60722 
06A5 8CD8 
06A7 B104 
06A9 D3E0 
06AB 050601 
06AE 26894702 
06B2 26C747040000 
06B8 26C747060800 



MOV ESiBYTE PTR [BX] ,MOVEFC 

MOV AX,DS 

MOV CL,4 

SHL AX,CL 

ADD AX, OFFSET BUFFER 

MOV ES:2[BX]\AX 

MOV ESrWORD PTR 4[BX],0 

MOV ESiWORD PTR 6[BX],8 



; SET FROM ADDRESS 
; SET TO ADDRESS 
; SET #BYTES 



06BE 8BCB 
06C0 E850FC 



0313 



MOV 
CALL 



CX,BX 
XFERPKT 



; CX = PACKET POINTER 

; SEND AND WAIT FOR Z80 TO FINISH 



06C3 C3 RET 
CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 
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EJECT 



*************************************************** 



INITIALIZE Z80 FCB AND DEFAULT BUFFER AREAS 



INITFCBBUF: 



06C4 


2E8E06A603 


MOV 


ES,PARM_SEG 


06C9 


BB4725 


MOV 


BX , BIOS_OFFSET+PBADR_OFFSET 


06CC 


268B1F 


MOV 


BX,ES:[BX] ; GET ADR OF DATA BLOCK 


06CF 


81C39400 


ADD 


BX,MOVEPKT_OFFSET ; GET ADR OF PACKET BUFFER TO USE 


06D3 


33C0 


XOR 


AX, AX 


U ODD 




nu V 


per AY 


06D7 


26C60722 


MOV 


ES.rBYTE PTR [BX] ,MOVEFC 


6DB 


8CD8 


MOV 


AX,DS 


6DD 


B104 


MOV 


CL,4 


6DF 


D3E0 


SHL 


AX,CL 


06E1 


055C00 


ADD 


AX,FCB_OFFSET 


06E4 


26894702 


MOV 


ES:2[BX],AX ; SET FROM ADDRESS 


06E8 


26C747045C00 


MOV 


ESiWORD PTR 4 [BX]%FCB_OFFSET ; SET TO ADDRESS 


06EE 


26C74706A400 


MOV 


ESiWORD PTR 6 [BX]M00H-FCB_OFFSET ; SET #BYTES 


6F4 


8BCB 


MOV 


CX,BX ; CX = PACKET POINTER 


06F6 


E81AFC 0313 


CALL 


XFERPKT ; SEND AND WAIT FOR Z80 TO FINISH 
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06F9 C3 RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



******************************************* 



06FA B800F6 
06FD 8B1E0E01 
0701 33D2 
0703 8EC2 
0705 26C607C3 
0709 26894701 



INITIALIZE PBDOS VECTOR 



INITVECTOR: 
MOV 
MOV 
XOR 
MOV 
MOV 
MOV 



AX,PBDOS_ADR 
BX,PCPMVECTOR 
DX,DX 
ES,DX 

ESrBYTE PTR [BX] .JUMPINST 
ES:1[BX]',AX 



; GET ADDRESS OF PSEUDO BDOS 



; SET 'JMP . . . 
; ... PBDOS ' 



070D C3 



RET 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



. **************************************************************** 
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SAVE .COM FILE FCB 



SAVEFCB: 



070E 


2E8E06A603 


MOV 


ES,PARM_SEG 


0713 


8B1E0401 


MOV 


BX,PARM_OFFSET 


0717 


268B37 


MOV 


Sr,ES: [BX] 


071A 


8CC8 


MOV 


AX,CS 


071C 


8EC0 


MOV 


ES,AX 


071E 


BFA803 


MOV 


or, OFFSET COMFCB 


0721 


IE 


PUSH 


DS 


0722 


2E8E1EA603 


MOV 


DS,PARM_SEG 


n 7 "7 


ZUUU 


WUV 


A f J ^ 


072A 


FC 


CLD 




072B 


F3A4 


REP MOVS 


AE,AL 


072D 


IF 


POP 


DS 


072E 


2EC606C80300 


MOV 


BYTE PTR COMFCB+32,0 


0734 


C3 


RET 





; GET FCB OFFSET 

; COMFCB IS IN CSEG 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



CONFIG SYSTEM; INIT FOR .COM 



EJECT 



********************************************** 



RELOCATE . COM-FILE-LOAD-CODE TO PRIVATE 8088 MEMORY 



****** 
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RELOCATE: 



0735 


B84000 


MOV 


AX,RELO_SEG 


0738 


8EC0 


MOV 


ES,AX 


073A 


BFOOOO 


MOV 


Dr,RELO_OFFSET 


073D 


BEOOOO 


MOV 


Sr, OFFSET RELOBEG 


0740 


IE 


PUSH 


DS 


0741 


8CC8 


MOV 


AX,CS 


0743 


8ED8 


MOV 


DS,AX 


0745 


B9E103 


MOV 


CX, OFFSET RELOEND 


0748 


FC 


CLD 




0749 


F3A4 


REP MOVS 


AE,AL 


074B 


IF 


POP 


DS 


074C 


C3 


RET 





CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



************************************** 



INITIALIZE PSEUDO-DPH 



INIDPH: 



074D 33C0 



XOR AX, AX 



;WE NEED ES TO BE 
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074F 8EC0 MOV ES,AX 

0751 B91000 MOV CX,16 ;MOVING 16 BYTES 

0754 BE1401 MOV ST, OFFSET DMYDPH ;TABLE TO COPY 

0757 BFAOFC MOV DI,PSDPH ;PSEUDO ADDRESS (ABSOLUTE) 

075A F3A4 REP MOVS AL,AL 

075C C3 RET 

CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 



075D BIOF 
075F EB12 



BDOS ROUTINES 



OPENFILE: 



0773 



MOV 
JMPS 



CL,FOPEN 
BDOSCALL 



0761 B133 
0763 EBOE 



SETDMAB: 



0773 



MOV 
JMPS 



CL,FDMAB 
BDOSCALL 



0765 BllA 
0767 EBOA 



SETDMA: 



0773 



MOV 
JMPS 



CL,FDMA 
BDOSCALL 
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READFILE: 



0769 B114 
076B EB06 



0773 



MOV 
JMPS 



CL,FREAD 
BDOSCALL 



076D B107 
076F EB02 



GETIOB: 



0773 



MOV 
JMPS 



CL.FIOB 
BDOSCALL 



0771 B109 



PRTSTRING: 
MOV 



CL^FPRINT 



0773 CDEO 
0775 C3 



BDOSCALL: 

INT 
RET 



BDOS 



CP/M ASM86 1.1 SOURCE: Z80CCP.A86 CONFIG SYSTEM; INIT FOR .COM 



EJECT 

. ************************************************* 

. ******************************************************************** 



DSEG 

ORG lOOH 



0100 NEWCPM_SEG RW 

0102 NEWPB_ADR RW 

0104 PARM^OFFSET RW 

0106 BUFFER RE 

OlOE PCPMVECTOR RW 

0110 A402 JMPF_OFFSET DW 

0112 4000 JMPF_SEG DW 

0114 BOFC DMYDPH DW 

0116 000000000000 DW 
0000 

OllE D8FC0000 DW 

0122 E7FC DW 

0124 0050524D5456 PRMTVFCB DB 

505654535953 

0130 000000000000 DB 

000000000000 

000000000000 

000000 

0145 005A38302020 Z80FCB DB 

202020535953 

0151 000000000000 DB 

000000000000 
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SEGMENT FOR NEW CP/M-86/80 
ADDRESS OF NEW POINTERS/BUFFERS 

DATA BLOCK 
OFFSET TO PARAMETER BLOCK FROM CCP 



; ADDRESS OF VECTOR TO PSEUDO BDOS 



OFFSET RELOSTART 
RELO SEG 



; LOCATION TO START EXECUTING 
.COM-FILE-LOAD CODE 



PSTRN 

OfCrO^rO 



; DUMMY DPH TO COPY 



PSDPB^O 
PSALV 

0, •PRMTVPVT''r 'SYS* 



a,a,a,a,o,o,arara,ararara,o,a,a,a,a,ff,a,o 



a,'Z80 S'SYS* 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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000000000000 
000000 

0166 0DOA54686520 PRMTVERR 

66696C652050 

524D54565056 

542E53595320 

4E6F7420466F 

756E64206F6E 

20426F6F7420 

4469736B24 
0195 0D0A54686520 PCPMERR 

46696C65205A 

38302E535953 

204E6F742046 

6F756E64206F 
CP/M ASM86 1.1 SOURCE: Z80CCP.A86 



DB 



CR,LF,'The file PRMTVPVT.SYS Not Found on Boot Disk$' 



DB 



CR,LF,»The File Z80.SYS Not Found on Boot Disk$« 



CONFIG SYSTEM; INIT FOR .COM 



6E20426F6F74 
204469736B24 



END 



END OF ASSEMBLY. NUMBER OF ERRORS; 0. USE FACTOR: 25% 
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CP/M MACRO ASSEM 2.0 



FALSE 
TRUE 



1 
2 

3 0000 = 

4 FFFF = 
5 

6 0000 = 
7 
8 
9 
10 

11 FFFF = SHARE 

12 

13 

14 

CP/M MACRO ASSEM 2.0 #002 



#001 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 
TITLE 'ZBO PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION' 




EQU 
EQU 



PRIVATE EQU 



EQU 



NOT FALSE 
FALSE 

NOT PRIVATE 



ASSEMBLE SHARED VERSION 



MACLIB ZBO 
PAGE 

Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



± D 




















IF SHARE 




1 7 

JL / 










1 ft 








> * 


* 


1 Q 

X y 








•* PSEUDO-BIOS FOR ZBO 


* 


A« U 








•* CP/M 86/80 




9 1 

^ X 








. * 


* 


9 9 








'* 04/19/82 RDK 


•k 


9 ^ 








•* 10/19/82 1100 LZ 


* 


9 A 








?* 11/22/82 1200 LZ 


* 


25 








. * 


* 


26 










27 












28 












29 


F600 




ORG 0F600H 


; CHANGE THIS IF NECESSARY TO 


30 












31 


0003 




lOBYTE EQU 3 




32 


0090 




FDOSM EQU 9 OH 




33 


FFE7 




CSFLAG EQU 0FFE7H 




34 


0001 




BIOCS EQU 1 




35 


0002 




BDCS EQU 2 




36 












37 






; ** JUMP TABLE FOR STARTING: 




38 






PSBDOS: 




39 


F600 


C306F6 




JMP PSBDOSl 




40 


F603 


C343F8 




JMP START 


; INITIALIZE RST 3 AND 6 


41 








; ** PSEUDO BDOS: 




42 












43 






PSBDOSl: 




44 


F606 


79 




MOV A,C 


;** VER 1.0.3 


45 


F607 


FE29 




CPI 41 


;** VER 1.0.4 


46 


F609 


DO 




RNC 


;** VER 1.0.4 BAD BDOS CALL 


47 


F60A 


FEOB 




CPI 11 


;** VER 1.0.3 


48 








JRZ PCONS 


;** VER 1.0.3 CONSOLE STATUS 


49 


F60C+2826 




DB 28H,PCONS-$-l 




50 








JRNC PSBDl 


;** VER 1.0.4 


51 


F60E+300E 




DB 30H,PSBDl-$-l 
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52 


F610 


FE06 


CPI 6 




VER 


1.0.3 




53 






JRZ PDRC 


. * * 

/ 


VER 


1.0.3 


DIRECT I/O 


54 


F612+2835 


DB 28H,PDFC-$-l 










55 


F614 


FE07 


CPI 7 


. * * 


VER 


1.0.3 




56 


F616 


CAE8F7 


JZ PGIOB 




VER 


1.0.3 


GET lOBYTE 


57 


F619 


FE08 


CPI 8 




VER 


1.0.3 




58 


F61B 


CAECF7 


JZ PSIOB 


. ** 


VER 


1.0.3 


STORE lOBYTE 


59 






PSBDl: 










60 


F61E 


CD7FF6 


CALL PACKIT 










61 


F6 21 


21BAF6 


LXI H,GTABLE 


. ** 


VER 


1.0.4 


START CHECK TO SEE 


62 


F624 


0600 


MVI B,0 


. * * 


VER 


1.0.4 


IF WE CAN RETURN BEFORE 


63 


F626 


09 


DAD B 


. * * 


VER 


1.0.4 


THE 8088 IS FINISHED 


64 


F627 


7E 


MOV A,M 


. ** 


VER 


1.0.4 


GET CODE 


65 


F628 


320EF8 


STA GONOW 


. ** 


VER 


1.0.4 


STORE IT 


66 


F6 2B 


3E90 


MVI A,FDOSM 


;BDOS FUNCTION CODE 


67 


F6 2D 


CD58F6 


PSEUX: CALL PSEUD 










68 


F630 


CDFBF7 


CALL UNPSTAK 


7 








69 


F633 


C9 


RET 











70 

CP/M MACRO ASSEM 2.0 #003 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



71 


F634 


3AE7FF 


PCONS : 


LDA CSFLAG 






. ** 


VER 


1.0.3 


72 


F637 


E602 




ANI BDCS 






> -k-k 


VER 


1.0.3 


73 








JRNZ PCONSl 






** 


VER 


1.0.4 


74 


F639+200A 




DB 20H, PCONSl 


— 


$-1 








75 


F63B 


CDE0F7 




CALL lOBCHK 






VER 


1.0.4 


76 








JRNZ PSBDl 






VER 


1.0.4 


77 


F63E+20DE 




DB 20H,PSBD1- 


$ 


-1 








78 


F640 


3AE7FF 




LDA CSFLAG 








VER 


1.0.4 


79 


F643 


E601 




ANI BIOCS 






. 


VER 


1.0.4 


80 


F645 


C8 


PCONSl: 


RZ 






► ** 


VER 


1.0.3 


81 


F646 


3EFF 




MVI A,0FFH 






** 


VER 


1.0.3 


82 


F648 


C9 




RET 






. ** 


VER 


1.0.3 


83 
84 


F649 


7B 


PDRC: 


MOV A,E 




. ** 


VER 


1.0.3 


85 


F64A 


FEFF 




CPI OFFH 






VER 


1.0.3 


86 








JRZ PDRCl 




• ** 


VER 


1.0.4 


87 


F64C+2804 




DB 28H,PDRC1- 


$ 


-1 








88 


F64E 


4B 




MOV C,E 






. kk 


VER 


1.0.4 


89 


F64F 


C36AF7 




JMP CONOUT 






, k-k 


VER 


1.0.4 


90 


F652 


CD4DF7 


PDRCl : 


CALL CONST 






, kk 


VER 


1.0.3 


91 








JRNZ PSBDl 






** 


VER 


1.0.3 


92 


F655+20C7 




DB 20H,PSBD1- 


$ 


-1 








93 


F657 


C9 




RET 




• •kit 


VER 


1.0.3 


94 

95 


F658 


3275F6 


PSEUD: 


STA PACKET 












96 


F65B 


3A0EF8 




LDA GONOW 




. ** 


VER 


1.0.4 


97 


F65E 


3276F6 




STA PACKET+1 




. -k-k 


VER 


1.0.4 


98 


F661 


2175F6 




LXI H, PACKET 












99 


F664 


CDC7F8 




CALL I88SVC 






' REQUEST 8080 


100 


F667 


3A0EF8 




LDA GONOW 






. kk 


VER 


1.0.4 


101 


F66A 


B7 




ORA A 






kk 


VER 


1.0.4 


102 


F66B 


C8 




RZ 






kk 


VER 


1.0.4 


103 


F66C 


CDE3F8 




CALL WAIT88 






. kk 


VER 


1.0.4 


104 


F66F 


CDA2F6 


PSEUDl: 


CALL UNPACKIT 













PROCESSING ( 1.0.3) 
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105 F672 C9 RET 

106 

107 

108 

109 

110 ;** DATA AREA 

111 F673 0000 IPKT DW 

112 F675 OOOOOOOOOOPACKET DB 0,0,0,0,0,0,0,0,0,0 

113 

114 ;* 

115 ;* THE MESSAGE PACKET WILL LOOK LIKE THIS: 

116 ;* BYTE USED Z80 8088 USED 

117 ;* FOR REG REG AT 

118 ;* 

119 ;* FUNCTION — AH ENTRY 

120 ;* 1 RET VAL A AL RETURN (GONOW ON ENTRY) 

121 ;* 2 FUNCTION NO. C CL ENTRY 

122 ;* 3 B CH ENTRY 

123 ;* 4 E DL ENTRY 

124 ;* 5 D DH ENTRY 

125 ;* 6 L BL RETURN 

126 ;* 7 H BH RETURN 



CP/M MACRO ASSEM 2.0 #004 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



127 






8 lOBYTE — — BOTH 


128 




. * 




129 








130 








131 




; ** SUBROUTINE TO PUT REGISTERS IN PACKET FOR BIOS OR BDOS 


132 








133 




PACKIT: 




134 




REPSTAK 


: ;ROUTINE TO SHIFT TO NEW STACK 


135 


F67F 220AF8 




SHLD HSAVE ;HANG ON TO HL 


136 


F682 F3 




DI ;N0 INTERRUPTS, PLEASE 


137 


F683 El 




POP H ;GET RETURN 


138 






SSPD PSTAKSAV ; STASH THE STACK POINTER 


139 


F684+ED73 




DB 0EDH,73H 


140 


F686+0CF8 




DW PSTAKSAV 


141 


F688 3141F8 




LXI SP,PSTACK ;SET STACK TO NEW AREA 


142 


F68B E5 




PUSH H ;SET UP RETURN 


143 


F68C FB 




EI ;INTERUPTS OK 


144 


F68D 2A0AF8 




LHLD HSAVE ;RESTORE HL 


145 


F690 CDE3F8 




CALL WAIT88 ;** VER 1.0.4 


146 






SBCD PACKET+2 ; STORE REGISTERS 


147 


F693+ED43 




DB 0EDH,4 3H 


148 


F695+77F6 




DW PACKET+2 


149 






SDED PACKET+4 


150 


F697+ED53 




DB 0EDH,5 3H 


151 


F699+79F6 




DW PACKET+4 


152 


F69B 3A0300 




LDA lOBYTE 


153 


F69E 327DF6 




STA PACKET+8 


154 


F6A1 C9 




RET 


155 








156 




; ** SUBROUTINE TO PUT MESSAGE-PACKET DATA INTO REGISTERS 


157 









Page 4 



1 

±DO 




UNPACKIT: 










PUSHIX 


•STOPE INDEX PEG 


1 OU 


CCA O-LT^rM?!; 


DB 




0DDH,0E5H 


1 ol 




LIXD IPKT ;** VEP 1.0.4 


± Z 




DB 




0DDH,2AH 


loo 


T?^^A<^-L'7'3T7C 


DW 




IPKT 






LDX 


A, 8 


;IOBYTE 


± \) D 


p +nr>7P n R 


DB 




0DDH,A*8+46H,8 


± D O 


r DfiD ozuouu 


STA 


lOBYTE ; (LOG 3) 


J. D / 




LDX 


A,l 




168 


FfiAF+DD7Pm 


DB 




0DDH,A*8+46H,1 


±\jy 




LDX 


L,6 




J. / u 


r DDxTjJUDitjUD 


DB 




0DDH,L*8+46H,6 


171 




LDX 


H,7 




172 


F6B4+DD6607 


DB 




0DDH,H*8+46H,7 


173 




POPIX 




174 


F6B7+DDE1 


DB 




0DDH,0E1H 


175 


F6B9 C9 


PET 







176 

177 GTABLE: ;TABLE OF CPITERIA FOP WAITING AFTEP A BDOS CALL. ZEPO = DON'T WAIT 



178 F6BA 01 DB 1 ;0 

179 F6BB 01 DB 1 ;1 

180 F6BC 00 DB ;2 

181 F6BD 01 DB 1 ;3 

182 F6BE 00 DB ;4 



CP/M MACPO ASSEM 2.0 #005 Z80 PSEUDO, INTEPFACE AND PRIMITIVE ROUTINES - SHAPED VERSION 



183 


F6BF 


00 


DB 





5 


184 


F6C0 


01 


DB 


1 ; 


6 


185 


F6C1 


01 


DB 


1 


7 


186 


F6C2 


01 


DB 


1 ; 


8 


187 


F6C3 


01 


DB 


1 ; 


9 


188 


F6C4 


01 


DB 


1 


'10 


189 


F6C5 


01 


DB 


1 


11 


190 


F6C6 


01 


DB 


1 


12 


191 


F6C7 


01 


DB 


1 


•13 


192 


F6C8 


01 


DB 


1 


14 


193 


F6C9 


01 


DB 


1 


•15 


194 


F6CA 


01 


DB 


1 


•16 


195 


F6CB 


01 


DB 


1 


•17 


196 


F6CC 


01 


DB 


1 


?18 


197 


F6CD 


01 


DB 


1 


•19 


198 


F6CE 


01 


DB 


1 


•20 


199 


F6CF 


01 


DB 


1 


•21 


200 


F6D0 


01 


DB 


1 


•22 


201 


F6D1 


01 


DB 


1 


•23 


202 


F6D2 


01 


DB 


1 


•24 


203 


F6D3 


01 


DB 


1 


•25 


204 


F6D4 


00 


DB 





•26 


205 


F6D5 


01 


DB 


1 


•27 


206 


F6D6 


01 


DB 


1 


•28 


207 


F6D7 


01 


DB 


1 


•29 


208 


F6D8 


01 


DB 


1 


•30 


209 


F6D9 


01 


DB 


1 


•31 


210 


F6DA 


00 


DB 





?32 



Page 5 



211 


F6DB 


01 


DB 


1 


'33 


212 


F6DC 


01 


DB 


1 


•34 


213 


F6DD 


01 


DB 


1 


•35 


214 


F6DE 


01 


DB 


1 


•36 


215 


F6DF 


01 


DB 


1 


•37 


216 


F6E0 


01 


DB 


1 


•38 


217 


F6E1 


01 


DB 


1 


•39 


218 


F6E2 


01 


DB 


1 


•40 


219 












220 






PAGE 







CP/M MACRO ASSEM 2.0 #006 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



221 














222 


F700 






ORG 


PSBDOS+IOOH 


; PAGE BOUNDARY FOR BIOS JUMPS 


223 






7 








224 






: ** BIOS JUMP TABLE 


;FUNCT NO. 


225 














226 


F700 


C336F7 




JMP 


BOOT 


;0 


227 


F703 


C345F7 




JMP 


WBOOT 


;1 


228 


F706 


C34DF7 




JMP 


CONST 


;2 


229 


F709 


C362F7 




JMP 


CONIN 


;3 


230 


F70C 


C36AF7 




JMP 


CONOUT 


;4 


231 


F70F 


C372F7 




JMP 


LIST 


;5 


232 


F712 


C37AF7 




JMP 


PUNCH 


;6 


233 


F715 


C382F7 




JMP 


READER 


;7 


234 


F718 


C38AF7 




JMP 


HOME 


;8 


235 


F71B 


C392F7 




JMP 


SELDSK 


;9 


236 


F71E 


C39AF7 




JMP 


SETTRK 


;A 


237 


F721 


C3A4F7 




JMP 


SETSEC 


;B 


238 


F724 


C3ACF7 




JMP 


SETDMA 


;C 


239 


F727 


C3B4F7 




JMP 


READ 


;D 


240 


F7 2A 


C3BCF7 




JMP 


WRITE 


;E 


241 


F7 2D 


C3C4F7 




JMP 


LISTST 


;F 


242 


F730 


C3CCF7 




JMP 


SECTRAN 


;10 


243 


F733 


C3D4F7 




JMP 


VIDEO 


;ll 


244 














245 














246 


F736 


CD7FF6 


BOOT : 


CALL PACKIT 




247 


F739 


3E40 




MVI 


A, 4 OH 




248 


F73B 


3275F6 


XBOOT: 


STA 


PACKET 


;0 


249 


F73E 


2175F6 




LXI 


H, PACKET 


; STORE CODE IN PACKET 


250 






r 


CALL WAIT88 


;** VER 1.0.4 


251 


F741 


CDC7F8 




CALL I88SVC 


; REQUEST 8088 PROCESSING (1.0.3) 


252 


F744 


E7 




RST 


4 


; BYE . 


253 














254 


F745 


CD7FF6 


WBOOT : 


CALL PACKIT 


;1 


255 


F748 


3E41 




MVI 


A,41H 




256 


F74A 


C33BF7 




JMP 


XBOOT 


;D0 IT TO IT 


257 














258 






CONST: 






;2 


259 


F74D 


CDE0F7 




CALL lOBCHK 


;** VER 1.0.3 


260 








JRNZ 


CONSTl 


;** VER 1.0.3 


261 


F750+2008 




DB 


20H,CONSTl-$-l 




262 


F752 


3AE7FF 




LDA 


CSFLAG 


;** VER 1.0.3 


263 


F755 


E601 




AN I 


BIOCS 


;** VER 1.0.3 
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264 


F757 


C345F6 




JMP PCONSl 


. * * 


VER 


1. 





.3 


265 






CONSTl: 
















266 


F7 5A 


CD7FF6 




CALL 


PACKIT 












267 


F75D 


CDF1F7 




CALL 


PSEUN 


. * * 


VEP 


1. 





.4 


268 


F760 


0142 




db' 


1,4 2H 












269 






















270 


F762 


CD7FF6 


CONIN: 


CALL 


PACKIT 


;3 










271 


F765 


CDF1F7 




CALL 


PSEUN 


. * * 


VER 


1. 





.4 


272 


F768 


0143 




DB 


1,4 3H 












273 






















274 


F76A 


CD7FF6 


CONOUT : 


CALL 


PACKIT 












275 


F76D 


CDF1F7 




CALL 


PSEUN 


. * * 


VER 


1. 





• 4 


276 


F770 


0044 




DB 


0,44H 
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277 






















278 


F772 


CD7FF6 


LIST: 


CALL 


PACKIT 












279 


F775 


CDF1F7 




CALL 


PSEUN 


• * * 


VER 


1 


.0 


.4 


280 


F778 


0045 




DB 


0,45H 












281 






















282 


F77A 


CD7FF6 


PUNCH: 


CALL 


PACKIT 


;6 










283 


F77D 


CDF1F7 




CALL 


PSEUN 


. -k-k 
1 


VER 


1 


.0 


.4 


284 


F780 


0046 




DB 


0,46H 












285 






















286 


F782 


CD7FF6 


READER: 


CALL 


PACKIT 


-.1 










287 


F785 


CDF1F7 




CALL 


PSEUN 


. * * 


VER 


1 


.0 


.4 


288 


F788 


0147 




DB 


1,47H 












289 






















290 


F78A 


CD7FF6 


HOME: 


CALL 


PACKIT 


;8 










291 


F7 8D 


CDF1F7 




CALL 


PSEUN 


. ** 

1 


VER 


1 


.0 


. 4 


292 


F790 


0048 




DB 


0,48H 












293 






















294 


F792 


CD7FF6 


SELDSK: 


CALL 


PACKIT 


;9 










295 


F795 


CDF1F7 




CALL 


PSEUN 


. ** 

t 


VER 


1 


.0 


.4 


296 


F798 


0149 




DB 


1,49H 












297 






















298 


F79A 


0600 


SETTRK: 


MVI B,0 


;10 










299 


F79C 


CD7FF6 




CALL 


PACKIT 












300 


F79F 


CDF1F7 




CALL 


PSEUN 


• -k * 


VER 


1 


.0 


.4 


301 


F7A2 


004A 




DB 


0,4AH 












302 






















303 


F7A4 


CD7FF6 


SETSEC: 


CALL 


PACKIT 


;ll 










304 


F7A7 


CDF1F7 




CALL 


PSEUN 


. ** 


VER 


1 


.0 


.4 


305 


F7AA 


004B 




DB 


0,4BH 












306 






















307 


F7AC 


CD7FF6 


SETDMA: 


CALL 


PACKIT 


;12 










308 


F7AF 


CDF1F7 




CALL 


PSEUN 


1 


VER 


1 


.0 


.4 


309 


F7B2 


004C 




DB 


0,4CH 












310 






















311 


F7B4 


CD7FF6 


READ: 


CALL 


PACKIT 


;13 










312 


F7B7 


CDF1F7 




CALL 


PSEUN 


. ** 


VER 


1 


.0 


.4 


313 


F7BA 


014D 




DB 


1,4DH 












314 






















315 


F7BC 


CD7FF6 


WRITE: 


CALL 


PACKIT 


;14 










316 


F7BF 


CDF IF 7 




CALL 


PSEUN 


• kit 
1 


VER 


1 


.0 


.4 
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'ill 


C "7 O O 


U14E 




DB 1,4EH 


J 1 O 












C "7 >l 


CD/FFd 


LISTST : 


CALL PACKIT 


o o n 


F 7L7 


CDFlF/ 




CALL PSEUN 


321 


F7CA 


014F 




DB 1,4FH 


3 22 










323 






SECTPAN 


s 


324 


F7CC 


0600 




MVI B,0 


325 


F7CE 


EB 




XCHG 


326 


F7CF 


09 




DAD B 


327 


F7D0 


6E 




MOV L,M 


328 


F7D1 


2600 




MVI H,0 


329 


F7D3 


C9 




PET 


330 










331 






VIDEO: 




332 


F7D4 


1600 




MVI D , 


CP/M MACRO ASSEM 2.0 


#008 


Z80 PSEUDO, INTERFACE 


333 


F7D6 


lEOO 




MVI E , 


334 


F7D8 


CD7FF6 




CALL PACKIT 


335 


F7DB 


CDF1F7 




CALL PSEUN 


336 


F7DE 


0156 




DB 1,56H 


337 










338 


F7E0 


3A0300 


lOBCHK: 


LDA lOBYTE 


339 


F7E3 


E603 




AN I 3 


340 


F7E5 


FEOl 




CPI 1 


341 


F7E7 


C9 




RET 


342 










343 


F7E8 


3A0300 


PGIOB : 


T TMl T r\T^ \7Tn 

LDA lOBYTE 


344 


F7EB 


C9 




RET 


345 










346 


F7EC 


7B 




MUV A , Ej 


347 


F7ED 


320300 




STA lOBYTE 


348 


F7F0 


C9 




RET 


349 










350 


F7F1 


El 


PSEUN: 


POP H 


351 


F7F2 


7E 




MOV A,M 


352 


F7F3 


320EF8 




STA GONOW 


353 


F7F6 


23 




INX H 


354 


F7F7 


7E 




MOV A,M 


355 


F7F8 


C32DF6 




JMP PSEUX 



;15 

;** VER 1.0.4 



16 



DOUBLE PRECISION IN BC 
TRANSLATE TABLE ADDRESS TO HL 
TRANSLATE SECTOR ADDRESS 
RETURN SECTOR IN L 

DON'T BOTHER CP/M-86 

;17 

;FAST VIDEO. NEED SEG 
ID PRIMITIVE ROUTINES - SHARED 



VERSION 



356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 



;** VER 1.0.4 



** 


VER 


1 


.0. 


3 




** 


VER 


1 


.0. 


3 


CRT? 


** 


VER 


1 


.0. 


3 


REALLY? 


** 


VER 


1 


.0. 


3 




** 


VER 


1 


.0. 


3 


GET lOBYTE 


is* 


VER 


1 


.0. 


3 




** 


VER 


1 


.0. 


3 


STORE lOBYTE 


** 


VER 


1 


.0. 


3 




** 


VER 


1 


.0. 


3 





UNPSTAK: 



F7FB 220AF8 
F7FE F3 
F7FF El 

F800+ED7B 
F802+0CF8 
F804 E5 
F805 FB 
F806 2A0AF8 
F809 C9 

F80A 0000 



HSAVE : 



SHLD HSAVE 
DI 

POP H 

LSPD PSTAKSAV 
DB 0EDH,07BH 
DW PSTAKSAV 
PUSH H 
EI 

LHLD HSAVE 
RET 

DW 



ROUTINE TO CARRY PARAMETERS FORWARD INTO 
THE PACKET FOR BIOS CALLS 
STORE WAIT CRITERION 

GET FUNCTION NUMBER 
GO TO PSEUDO-BIOS EXIT 



; ROUTINE TO RESET TO OLD STACK 
;HANG ON TO HL 
;N0 INTERRUPTS, PLEASE 
;GET RETURN ADDRESS 
;RESTORE USER STACK 



RESTORE RETURN 
INTERRUPTS OK 
RESTORE HL 
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370 
371 
372 
373 
374 
375 
376 
377 
378 
379 

CP/M MACRO ASSEM 2 



F80C 0000 
F80E 00 



F80F 

F841 0000 



PSTAKSAV: 
GONOW: 



DW 
DB 



? SPACE FOR A STACK 
DS 50 
PS TACK: DW 

ENDIF 
PAGE 

#009 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES 



SHARED VERSION 



380 


















381 


















382 






; Z80 INTERFACE 


LAYER AND PRIMITIVE 


ROUTINES 


383 


















384 






; REWRITTEN 


FOR 


DEC RAINBOW 100 






385 






; 




BY CPL 






386 






; 




JULY 1982 






387 


















388 


















389 








IF 




PRIVATE 






390 






START 


EQU 




OOlOOH 


/ 


STARTING ADDRESS OF CODE 


391 






INTFPTR 


EQU 




03CFCH 


? 


LOCATION OF PACKET POINTERS 


392 








ELSE 








393 


F843 


= 


START 


EQU 




$ 


? 


STARTING ADDRESS OF CODE 


394 


FFFC 


= 


INTFPTR 


EQU 




OFFFCH 


r 


LOCATION OF PACKET POINTERS 


395 








ENDIF 








396 


















397 


0018 


= 


RST3 


EQU 




18H 


r 


ADDRESS OF RST 18H (RST 3) VECTOR 


398 


0020 




RST4 


EQU 




20H 


? 


ADDRESS OF RST 20H (RST 4) VECTOR 


399 


0030 


= 


RST6 


EQU 




30H 


/ 


ADDRESS OF RST 3 OH (RST 6) VECTOR 


400 


















401 


0000 


= 


I88INT 


EQU 







? 


8088 INTERRUPT PORT 


402 


0020 


= 


INTSTA 


EQU 




20H 


r 


CROSS-CPU INTERRUPT STATUS PORT 


403 


















404 


00C3 


= 


JUMP 


EQU 




0C3H 


r 


OPCODE FOR JUMP INSTRUCTION 


405 


















406 


0004 




INTBIT 


EQU 




4H 




INTERRUPT BIT 


407 
















WHEN LOW, SHOWS 8088 INTERRUPT 


408 
















FLOP IS INTERRUPTING THE 8088; 


409 
















ORIGINALLY SET BY Z80 


410 


















411 


OOFO 




FRANCE 


EQU 




OFOH 


7 


FUNCTION RANGE MASK 


412 














r 


FOR HIGH NIBBLE OF FUNCTION CODE 


413 


















414 


0010 




DSKFNC 


EQU 




lOH 




DISK FUNCTION (HIGH NIBBLE VALUE) 


415 


0020 




OTHFNC 


EQU 




20H 




OTHER Z80 FUNCTIONS (HIGH NIBBLE VALUE) 


416 


0040 




USRFNC 


EQU 




40H 




USER-DEFINED FUNCTIONS 


417 


















418 


0021 




Z80BGN 


EQU 




21H 




ALLOW Z80 TPA EXECUTION 


419 


0022 




Z80MVE 


EQU 




22H 




MOVE Z80 MEMORY CONTENTS 


420 
















LOW VALUE LIMIT - 1 


421 


















422 


0007 




LEGFUN 


EQU 




07H 


f 


FUNCTION CODE MASK 
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423 










424 










425 


OOFF = 


FNCNG 


EQU 


OFFH 


426 










427 


0014 = 


DKWRIT 


EQU 


14H 


428 










429 


OOOA = 


NUMSEC 


EQU 


10 


430 


0200 = 


SECSIZ 


EQU 


512 


431 










432 


0002 = 


STADRL 


EQU 


2 


433 


0003 = 


STADRH 


EQU 


3 


434 










435 


0002 = 


SCADRL 


EQU 


2 


/M MACRO ASSEM 2.0 


#010 


Z80 


PSEUDO, INTERFACE 


436 


0003 = 


SCADRH 


EQU 


3 


437 


0004 = 


DSADRL 


EQU 


4 


438 


0005 = 


DSADRH 


EQU 


5 


439 


0006 = 


BYCNTL 


EQU 


6 


440 


0007 = 


BYCNTH 


EQU 


7 


441 










442 






PAGE 





USE LOW 3 BITS 

FUNCTION CODE NO GOOD 

PACKET DISK WRITE FUNCTION CODE 

NUMBER OF SECTORS PER TRACK 
NUMBER OF BYTES PER DISK SECTOR 

START ADDRESS LSB PACKET OFFSET 
START ADDRESS MSB PACKET OFFSET 

SOURCE ADDRESS LSB PACKET OFFSET 



SOURCE ADDRESS MSB PACKET OFFSET 
DESTINATION ADDRESS LSB PACKET OFFSET 
DESTINATION ADDRESS MSB PACKET OFFSET 
BYTE COUNT ADDRESS LSB PACKET OFFSET 
BYTE COUNT ADDRESS MSB PACKET OFFSET 



CP/M MACRO ASSEM 2.0 



#011 



Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 



F843 



ORG START 
********************************************^ 

NAME: INTSTR 

FUNCTION: THIS ROUTINE WILL RE-INITIALIZE THE RST 6 

VECTORS, SET UP THE Z80 SERVICE STACK POINTER, 
AND DO A RST 4. 

ENTRY: NONE 

EXIT: NONE 

INTSTR: 

; SET UP RST VECTORS 



F843 2155F8 
F846 223100 



F849 319CFC 



F84C 3E00 
F84E 329DFC 



LXI H,PKTPRO 
SHLD RST6+1 

; SET UP Z80 SERVICE STACK POINTER 

LXI SP, STACK 

; INITIALIZE FLAGS 

MVI A, FALSE 

STA DONEFL 



; SET UP RST 6 VECTOR 
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474 
475 
476 
477 
478 

CP/M MACRO ASSEM 2.0 



F851 FB 
F852 C32000 



479 




480 




481 




482 




483 




484 




485 




486 




487 




488 




489 




4 90 




491 




492 




493 




494 




495 




496 




497 




498 




499 




500 




501 


F855+DDE5 


502 


F857 F5 


503 




504 




505 


F858+DD2A 


506 


F85A+FEFF 


507 




508 


F85G DBOO 


509 




510 




511 


F85E+FDE5 


512 


F860 E5 


513 




514 


F861+DDE5 


515 


F863 El 


516 


F864 7C 


517 


F865 B5 


518 


F866 CABCF8 


519 


F869 D5 


520 


F86A C5 


521 




522 


F86B 0195F8 


523 


F86E C5 


524 




525 


F86F FB 


526 





; WAIT UNTIL NEEDED 
EI 

JMP RST4 
PAGE 

#012 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



; GO TO HALT AND WAIT FOR INTERRUPT 



******************************************** 

NAME: PKTPRO 

FUNCTION: THIS ROUTINE IS PASSED A PACKET ADDRESS IN I88PKT. IT USES 
THAT TO GET THE FUNCTION NUMBER WHICH IT USES TO JUMP 
TO THE SPECIFIC FUNCTION HANDLER ROUTINE. 

THIS ROUTINE IS ENTERED VIA AN INTERRUPT FROM THE 8088 AT RST 6 
THEREFORE, INTERRUPTS ARE OFF. 

FOR ALL FUNCTIONS EXCEPT Z80START AND SERIAL SUPPORT FROM 8088, 



PKTPRO: 



WE WILL INTERRUPT THE 


8088 TO 


INDICATE WE HAVE FINISHED 


THE 


FUNCTION 






I88PKT 


= PACKET ADDRESS 






IX = PACKET ADDRESS 






PUSHIX 






SAVE 


DB 


0DDH,0E5H 






PUSH 


PSW 






LIXD 


I88PKT 


f 


GET ADDRESS OF PACKET 


DB 


0DDH,2AH 






DW 


I88PKT 






IN 


I88INT 


f 


CLEAR 8088 INTERRUPT FLAG 


PUSHIY 




7 


SAVE REMAINING REGISTERS 


DB 


0FDH,0E5H 






PUSH 


H 






PUSHIX 




f 


CHECK FOR ZERO ADDRESS 


DB 


0DDH,0E5H 






POP 


H 




MOVE IX TO H 


MOV 


A,H 




PUT IN ACCUM 


ORA 


L 




GET LOW-ORDER, TOO. 


JZ 


HIFXIT 




GO AWAY IF ZERO 


PUSH 


D 






PUSH 


B 






LXI 


B^PKTRET 


r 


PUSH RETURN ADDRESS ONTO STACK 


PUSH 


B 






EI 




r 


RE-ENABLE INTERRUPTS 
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527 






LDX 


a/fnccod 


; GET FUNCTION CODE 


528 


F870+DD7E00 




DB 


0DDH,A*8+46H, 


FNCCOD 


529 




? 








530 


F873 FE13 




CPI 


QKRDCOM 




531 


F875 CA3BF9 




JZ 


DKREAD 


; READ FUNCTION 


532 




7 








533 


F878 FE14 




CPI 


QKWTCOM 




534 


F87A CA3BF9 




JZ 


DKWRITE 


; WRITE FUNCTION 
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535 














536 


F87D FE42 




CPI 


USRFNC+2 


r 


BIOS 42 - 4F, BDOS 90 


537 






JRNC 


HIFNC 


f 


YES 


538 


F87F+3033 




DB 


30H,HIFNC-$-l 






539 














540 


F881 FE22 




CPI 


Z80MVE 


1 


MOVE Z80 MEMORY 


541 


F883 CA47FC 




JZ 


ZMOVE 






542 




/ 










543 


F886 FE15 




CPI 


QKCMCOM 






544 


F888 CAF2F8 




JZ 


DKCHECK 


r 


CHECK MEDIA FUNCTION 


545 




7 










546 


F88B FE21 




CPI 


Z80BGN 


f 


ALLOW Z80 TPA EXECUTION 


547 


F88D CA32FC 




JZ 


Z START 






548 














549 




ERROR: 










550 


F890 CI 




POP 


B 


r 


EMPTY STACK OF RETURN ADR 


551 






MVIX 


FNCNG, STATUS 


r 


SET ERROR STATUS 


552 


F891+DD3601FF 




DB 


ODDH, 3 6H, STATUS 


, FNCNG 


553 














554 




PKTRET: 










555 


F895 FB 




EI 






; RE-ENABLE INTERRUPTS IN CASE 


556 












THEY WERE OFF (DISK I/O) 


557 


F896 CI 




POP 


B 




; RESTORE REGISTERS 


558 


F897 Dl 




POP 


D 






559 


F898 El 




POP 


H 






560 






POPIY 








561 


F899+FDE1 




DB 


0FDH,0E1H 






562 














563 






SIXD 


Z80PKT 




; SET UP RETURN PACKET POINTER 


564 


F89B+DD22 




DB 


0DDH,22H 






565 


F89D+FCFF 




DW 


Z80PKT 






566 


F89F D300 




OUT 


I88INT 




AND PASS IT 


567 














568 




PKTRl: 










569 


F8A1 DB20 




IN 


INTSTA 




; LOOP UNTIL 8088 CLEARS THE 


570 


F8A3 E604 




AN I 


INTBIT 




; INTERRUPT 


571 


F8A5 CAA1F8 




JZ 


PKTRl 






572 














573 






LXIX 









574 


F8A8+DD21 




DB 


0DDH,21H 






575 


F8AA+0000 




DW 









576 






SIXD 


Z8 0PKT 




;ZERO ADDRESS (8088 HAS IT NOW) 


577 


F8AC+DD22 




DB 


0DDH,2 2H 






578 


F8AE+FCFF 




DW 


Z80PKT 






579 
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580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 



F8B0 Fl 
F8B1+DDE1 



F8B3 C9 



F8B4 CI 
F8B5 3EFF 



POP 
POP IX 
DB 



CP/M MACRO ASSEM 2.0 



PSW 

0DDH,0E1H 

RET ; AND RETURN 

; PROCESS FUNCTION CODES 42H TO 4FH, OR 9 OH 
HIFNC: 

POP B ; FIX STACK 

MVI A, TRUE ; SET DONE FLAG 

#014 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



591 


F8B7 329DFC 


STA 


DONEFL 




592 










593 


F8BA CI 


POP 


B 


; RESTORE REGISTERS 


594 


F8BB Dl 


POP 


D 


EXCEPT HL,AF, AND IX 


595 


F8BC El 


HIFXIT: POP 


H 




596 




POPIY 






597 


F8BD+FDE1 


DB 


OFDH.OEIH 




598 










599 


F8BF Fl 


POP 


PSW 


; RESTORE 


600 




SIXD 


IPKT 


; STASH PACKET ADDRESS 


601 


F8C0+DD22 


DB 


0DDH,22H 




602 


F8C2+73F6 


DW 


IPKT 




603 




POPIX 






604 


F8C4+DDE1 


DB 


ODDH.OEIH 




605 


F8C6 C9 


RET 






606 










607 
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608 










609 






IF SHARE 




610 








611 










612 






' NAME: I88SVC 




613 










614 






• FUNCTION: THIS ROUTINE REQUESTS 


SERVICE FROM THE 8088 FOR A 


615 






Z80-RESIDENT ROUTINE. 




616 










617 






• ENTRY: HL = PACKET ADDRESS 




618 










619 






EXIT: HL = PACKET ADDRESS 




620 










621 




I88SVC: 




622 










623 


F8C7 


F3 


DI 




624 


F8C8 


22FCFF 


SHLD Z80PKT 


; WRITE ADDRESS OF PACKET 


625 










626 


F8CB 


3E00 


MVI A, FALSE 


; CLEAR DONE FLAG 


627 


F8CD 


329DFC 


STA DONEFL 




628 










629 


F8D0 


D300 


OUT I88INT 


; SET 8088 INTERRUPT FLAG 


630 











Page 13 



D J JL 






IN ilJjK : 








O J 




UoZ u 




IM 


INiblA ; 


LOOP UNTIL oUoo TURNS OFF 


^ o o 


F8D4 


E604 




AN I 


INTBIT ; 


INTERRUPT FLAG 


634 


F8D6 


CAD2F8 




JZ 


INTCLR 




/roc 
o3D 


F8D9 


E5 




PUSH 


H 




636 


F8DA 


210000 




LXI 


H,0 




637 


F8DD 


22FCFF 




SHLD 


Z80PKT ; 


ZERO THE PACKET ADDRESS 


638 


F8E0 


El 




POP 


H 




639 






t 








640 


F8E1 


FB 




EI 




RE-ENABLE INTERRUPTS 


641 


F8E2 


C9 




RET 






642 














643 














44 






; ROUTINE TO 


WAIT FOR THE DONE FLAG 




645 














C A C 

o4d 






WAIT88: 








<C il "7 

4/ 


F8E3 


F3 




DI 






C A O 

d4o 


F8E4 


3A9DFC 




LDA 


DONEFL ; 


JUMP IF DONE 


649 


F8E7 


FEFF 




CPI 


TRUE 




650 








JRZ 


WAITDN 




651 


F8E9+2805 




DB 


28H ,WAITDN-$-l 




652 


F8EB 


CD2300 




CALL 


23H ; 


WAIT UNTIL INTERRUPTED 


653 














654 








JR 


WAITS 8 


JUMP TO MAKE SURE DONE FLAG IS 


655 


F8EE+18F3 




DB 


18H,WAIT88-$-l 




656 














657 


F8F0 


FB 


WAITDN: 


EI 






658 


F8F1 


C9 




RET 






659 














660 
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661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 



ENDIF 

******************************* * * ******************************* 

NAME: DSKPRO 

FUNCTION: THIS ROUTINE IS THE ENTRY POINT FOR ALL OF THE 
DISK I/O FUNCTIONS. IT WILL DETERMINE WHICH 
PRIMITIVE TO CALL, AND PASS CONTROL TO THAT PRIMITIVE. 

ENTRY: IX = PACKET ADDRESS 

EXIT: IX = PACKET ADDRESS 

**************************************************************** 

PACKET OFFSETS 



0000 
0001 
0002 
0002 



FNCCOD EQU 

STATUS EQU 1 

DRIVEN EQU 2 

SECTN EQU 2 



FUNCTION CODE 
RETURNED STATUS 
DRIVE NUMBER 
SECTOR NUMBER 
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684 


0003 




TPACKN 


EQU 


3 


TRACK NUMBER 


685 


0004 


_ 


DMALOW 


EQU 


4 


• DMA ADDRESS (LSB) 


686 


0005 


_ 


DMAHI 


EQU 


5 


' DMA ADDRESS (MSB) 


687 


0006 


_ 


NSECT 


EQU 


6 


' NUMBER OF SECTORS 


688 














689 


0060 




DRVNUM 


EQU 


6 OH ; MASK FOP DPIVE NUMBEP 


690 


OOIF 


_ 


SECNUM 


EQU 


IFH ; MASK FOP SECTOP NUMBER 


691 






? 








692 






; FUNCTION CODES 




693 


0013 


_ 


QKRDCOM 


EQU 


13H ; READ FUNCTION CODE 


694 


0014 


_ 


QKWTCOM 


EQU 


14H ; WRITE FUNCTION CODE 


695 


0015 





QKCMCOM 


EQU 


15H ; CHECK MEDIA FUNCTION CODE 


696 














697 






; FDC COMMAND 


FLAGS 




698 














699 


0008 


_ 


QMHLD 


EQU 


8 


' HEAD LOAD FLAG 


700 


0004 




QMVEFF 


EQU 


4 


' VERIFY FLAG 


701 


0004 




QMEFLG 


EQU 


4 ; 


HEAD LOAD FLAG FOR READ/WRITE 


702 


0008 




QMSSEL 


EQU 


8 


SIDE SELECT FLAG 


703 


0002 




QMSCOM 


EQU 


2 ; 


SIDE COMPARE FLAG 


704 


0010 




QMUPDT 


EQU 


lOH 


' UPDATE TRACK REG FLAG 


705 















706 
707 

708 0000 = 

709 

710 

711 

712 0008 = 

713 OOlC = 

714 0018 = 

715 0010 = 

716 0048 = 
CP/M MACRO ASSEM 2.0 



FDC STEP RATE 
QKRATE EQU 
FDC COMMANDS 



; 6 MS RATE 



QCREST EQU 
QCSEEK EQU 
QCSEEKN EQU 
QCSEKHO EQU 
QCSTEPIN EQU 



0+QMHLD+QKRATE 
1 OH+QMHLD+QKRATE+QMVERF 
1 OH+QMHLD+QKRATE 
lOH+QKRATE 
4 OH+QMHLD+QKRATE 



RESTORE (RECAL) 
SEEK (WITH VERIFY) 
SEEK (NO VERIFY) 
SEEK - NO HEAD LOAD 
STEP IN 
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717 


0068 




QCSTEPOT EQU 


6 OH+QMHLD+QKRATE 


STEP OUT 


718 


0080 




QCREADS EQU 


80H 




• READ SECTOR 


719 


OOAO 




QCWRTS EQU 


OAOH 




• WRITE SECTOR 


720 


OOFO 




QCWRTRK EQU 


OFOH 




; WRITE TRACK 


721 


OOCO 




QCRDADR EQU 


OCOH 




; READ ADDRESS 


722 


OODO 




QCTERM EQU 


ODOH 




• TERMINATE COMMAND 


723 
724 






; DISK CONTROLLER STATUS 


- TYPE 1 COMMANDS 


725 














726 


0080 




QMNRDY EQU 


80H 


• NOT READY 




727 


0040 




QMWPROT EQU 


40H 


' WRITE PROTECTED 


728 


0020 




QMHLT EQU 


20H 


• HEAD LOADED 




729 


0010 




QMSKERR EQU 


lOH 


► SEEK ERROR 




730 


0008 




QMCRC EQU 


8 


• CRC ERROR 




731 


0004 




QMTZERO EQU 


4 


' TRACK ZERO 




732 


0002 




QMINDEX EQU 


2 


• INDEX 




733 


0001 




QMBUSY EQU 


1 


• BUSY 




734 














735 






; DISK CONTROLLER STATUS 


- TYPE 2 AND 3 COMMANDS 


736 
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f -J f 


nn9n 
u u z u 




/ oo 


nni n 

U U X u 






nnn4 

U U U 4 




7 An 


u u u z 




741 


u u z u 




7 A9 












744 






74R 


n no 1 




74fi 












74P 


U Ur u 




7 4Q 


U U!7U 




7 






7 SI 






7 S9 






7 R'^ 


finrn 




7 S4 


nn9n 

u u z u 




7 SR 


nni n 

U U X u 




756 


0008 




757 


nni ft 

U U X o 




7 Sft 

/JO 


nnn4 




759 


0003 




760 






761 






762 






/ J 


n nn4 




764 


9C40 




765 


003D 




766 


0040 




767 


004F 




768 


OOOA 




769 


0002 




770 






771 






772 
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773 






774 






775 






776 






777 


0040 




778 


0060 




779 


0061 




780 


0062 




781 


0063 




782 






783 






784 






785 






786 


0040 




787 


0046 




788 


004A 





QMWRFLT 


EQU 


20H 


; WRITE FAULT 


QMRNF 


EQU 


lOH 


; RECORD NOT FOUND 


QMLDATA 


EQU 


4 


; LOST DATA 


QMDRQ 


EQU 


2 


; DATA REQUEST 


QMDELDM 


EQU 


20H 


; DELETED DATA MARK 



ERROR MASKS FOR OPERATIONS 

QMREST EQU QMNRDY+QMSKERR+QMBUSY ; RESTORE 

QMSEEK EQU QMNRDY+QMSKERR+QMCRC+QMBUSY ; SEEK 

QMREAD EQU QMNRDY+QMRNF+QMCRC+QMLDATA+QMDELDM+QMBUSY ; READ SECTOR 

QMWRITE EQU QMNRDY+QMRNF+QMCRC+QMLDATA+QMWRFLT+QMWPROT+QMBUSY ; WRITE SECTOR 

QMRDADR EQU QMNRDY+QMRNF+QMCRC+QMLDATA+QMBUSY ; READ ADDRESS 

GENERAL STATUS PORT (QPSTAT) EQUATES 



QMPRECMP EQU 


OCOH 


• PRECOMPENSATION BITS 


QMPSIDE EQU 


20H 


• SIDE SIGNAL 


QMONl EQU 


lOH 


' MOTOR 1 ON 


QMONO EQU 


8 


► MOTOR ON 


QMON EQU 


QMONO +QM0N1 


QMTG4 2 EQU 


4 ; TG 42 SIGNAL 


QMDRNR EQU 


3 ; DRIVE NUMBER 


; MISCELLANEOUS 


EQUATES 




QKDRETRY EQU 


4 


' DISK OPERATION RETRIES 


QKDRCNT EQU 


40000 


► COUNT FOR DISK READY TIMING (.5 SEC) 


QKPCTRK EQU 


61 


• PRECOMP REQUIRED STARTING AT THIS TRACK 


QKPCBIT EQU 


40H 


• PRECOMP BIT TO USE AFTER TRACK 60 


QKMXTRK EQU 


79 


' MAX TRACK NUMBER ON RX50 


QKMXSECT EQU 


10 


' MAX PHYSICAL SECTOR NO. ON RAINBOW DISKS 


QKROBIN EQU 


2 


) STATUS RETURNED FOR ROBIN MEDIA ON CHECK 
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EQUATES FOR PHYSICAL DISK CONTROL 



QPSTAT EQU 
QPCOMD EQU 
QPTRKRG EQU 
QPSECRG EQU 
QPDATA EQU 



40H 
60H 
61H 
62H 
63H 



GENERAL DISK CONTROL/STATUS REG. 
FDC COMMAND/STATUS REG. 
FDC TRACK REG. 
FDC SECTOR REG. 
FDC DATA REG. 



EQUATES FOR PRIVATE RAM I/O ROUTINE 



RDORWR EQU 
INOROUT EQU 
UDELAY EQU 



0040H 
0046H 
004AH 



ADDRESS OF ROUTINE 

ADDRESS OF INI OR OUTI INSTR. 

DELAY IN 0.500 MSEC INCREMENTS, C 



COUNT 
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790 A2ED = 

791 A3ED = 

792 63DB = 
793 

794 
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795 




796 




797 




798 




799 




800 




801 




802 




803 




804 




805 




806 




807 




808 




809 




810 




811 




812 




813 




814 




815 


F8F2 3EFF 


816 


F8F4 CDICFC 


817 


F8F7 CD32FB 


818 




819 


F8FA+3805 


820 


F8FC CDAIFA 


821 




822 


F8FF+2803 


823 




824 


F901 AF 


825 




826 


F902+1823 


827 




828 


F904 AF 


829 




830 


F905+DD7703 


831 


F908 CDICFC 


832 




833 


F90B+DD7E02 


834 


F90E E660 


835 


F910 47 


836 


F911 3E0A 


837 


F913 B7 


838 




839 


F914+DD7702 


840 


F917 21DB63 


841 


F91A CDD1F9 


842 





INII EQU 0A2EDH ; INI INSTRUCTION 

OUTII EQU 0A3EDH ; OUTI INSTRUCTION 

ININ EQU QPDATA SHL 8 + IN ; IN QPDATA INSTR. 

PAGE 
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DKCHECK - CHECK MEDIA TYPE 

FUNCTION: ATTEMPTS TO DETERMINE WHETHER A RAINBOW OR ROBIN DISKETTE 

IS MOUNTED IN THE SPECIFIED DRIVE. 

INVOKED BY THE BIOS IN THE 8088 WHENEVER DRIVE IS 
SELECTED FOR THE FIRST TIME AFTER A DISK SYSTEM RESET - 
MOST COMMONLY AFTER A '^C AT THE CCP LEVEL. 

RULES: NO ERRORS ARE RETURNED. A RESTORE OPERTION IS DONE, 

FOLLOWED BY A READ OF SECTOR 10. IF A RECORD NOT FOUND 
STATUS RESULTS, ROBIN MEDIA IS ASSUMED. ON A SUCCESSFUL 
READ OF PHYSICAL SECTOR 10 OR IF ANY OTHER ERROR OCCURS 
(SUCH AS NOT READY) , RAINBOW MEDIA IS ASSUMED. 

ENTRY: PACKET ADDRESS IN IX. 

EXIT: MEDIA TYPE IN THE STATUS FIELD OF THE PACKET: 

IF RAINBOW, 2 IF ROBIN. 



DKCHECK: 



DKCHECKl 



DKCHECK2 



MVI 


A,OFFH ; 


SET "CURRENT TRACK" TO FF TO INDICATE 


CALL 


SETRAK ; 


FIRST ACCESS AFTER RESET 


CALL 


DPSELDR 




JRC 


DKCHECKl ; 


DRIVE IS NOT READY 


DB 


38H,DKCHECKl-$-l 




CALL 


DPRECAL 




JRZ 


DKCHECK 2 ; 


FALL THROUGH = ERROR ON RESTORE 


DB 


28H,DKCHECK2-$-l 




XRA 


A 


ERROR - ASSUME RAINBOW MEDIA 


JR 


DKCHECK3 




DB 


18H,DKCHECK3-$-l 




• 

XRA 


A 




STX 


A,TRACKN 




DB 


0DDH,70H+A,TRACKN 




CALL 


SETRAK 


TRACK INTO TABLE 


LDX 


A, DRIVEN ; 


SETUP PACKET FOR THE READ ROUTINE 


DB 


0DDH,A*8+46H, DRIVEN 


AN I 


DRVNUM 




MOV 


B,A 




MVI 


A,QKMXSECT 


NOW TRY TO RAED SECTOR 10 


ORA 


A 




STX 


A,SECTN 




DB 


0DDH,70H+A,SECTN 




LXI 


H,ININ ; 


NO DATA TRANSFER INTO MEMORY 


CALL 


DPREADZ ; 


AND NO ERROR RECOVERY 


JRZ 


DKCHECK3 ; 


GOOD READ 
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843 F91D-h2808 

844 F91F FEIO 

845 F921 3E00 
846 

847 F923+2002 

848 F925 3E02 
849 

850 F927 47 
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851 F928 3A2EFC 

852 F92B 5F 

853 F92C 1600 

854 F92E 21F4FF 

855 F931 19 

856 F932 70 

857 F933 78 

858 F934 322FFC 
859 

860 F937+DD7701 

861 F93A C9 
862 

CP/M MACRO ASSEM 2.0 

863 
864 
865 
866 
867 
868 
869 
870 

871 F93B CDA8F9 

872 F93E D8 

873 F93F CA4CF9 

874 F942 CDC7FA 
875 

876 F945+2021 

877 F947 DB61 

878 F949 CDlCFC 
879 

880 F94C 3E13 
881 

882 F94E+DDBE00 
883 

884 F951+2005 

885 F953 CDCBF9 
886 

887 F956+1803 
888 

889 F958 CDE7F9 
890 

891 F95B CD73F9 
892 

ftQ7 FQRP.+^nF!r 



DKCHECK3 
#020 



#021 



DB 


28H,DKCHECK3-$-l 




CPI 


QMRNF ; 


IS RECORD NOT FOUND THE ONLY ERROR? 


MVI 


A,0 




JRNZ 


DKCHECK3 


NO - SET RAINBOW MEDIA 


DB 


20H,DKCHECK3-$-l 




MVI 


A,QKROBIN 


YES - ROBIN MEDIA 


MOV 


B,A 




Z80 


PSEUDO, INTERFACE AND 


PRIMITIVE ROUTINES - SHARED VERSION 


LDA 


BCURDRV ; 


PUT MEDIA TYPE INTO FORMAT TABLE, 


MOV 


E,A 


CURRENT FORMAT INDICATOR AND 


MVI 


D,0 ; 


INTO THE PACKET 


LXI 


H^TFORMAT 




DAD 


D 




MOV 


M,B 




MOV 


A,B 




STA 


BFORMAT 




STX 


A STATUS 




DB 


ODDH, 7 OH+A, STATUS 




RET 
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DKREAD/DKWRITE - READ OR WRITE SECTOR (S) 

FUNCTION: READS OR WRITES 1 TO 10 SECTORS ON 
SPECIFIED DRIVE AND TRACK. 

DKREAD: 
DKWRITE: 



DKRW20: 



DKRW3 : 



DKRW40: 



CALL 


DKRWSET 




' SET UP FOR READ/WRITE 


RC 






' EXIT - DRIVE NOT READY 


JZ 


DKRW20 




NO SEEK NEEDED 


CALL 


DPSEEK 




PERFORM SEEK 


JRNZ 


DKRW90 




SEEK ERROR 


DB 


20H,DKRW90 


-$-1 




IN 


QPTRKRG 


; SET NEW TRACK IN TABLE 


CALL 


SETRAK 






MVI 


A,QKRDCOM 


; READ FUNCTION? 


CMPX 


FNCCOD 






DB 


ODDH,OBEH, 


FNCCOD 




JRNZ 


DKRW30 


; NO - WRITE 


DB 


20H,DKRW3 


-$-1 




CALL 


DPREAD 


; YES - READ SECTOR 


JR 


DKRW4 






DB 


18H,DKRW4 


-$-1 




CALL 


DPWRITE 


; NO - WRITE SECTOR 


CALL 


NEXTSEC 


; CHECK FOR MULT. SECTOR 


JRNC 


DKRW20 




LOOP UNTIL ALL SECTORS 


DB 


30H,DKRW20 


-$~1 
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894 




STX 




A, STATUS 


STORE STATUS 


895 


F960+DD7701 


DB 




ODDH , 7 OH+A , STATUS 




896 


F963 E601 


AN I 




QMBUSY 


SEEK ERROR INDICATED? 


897 


F965 C8 


RZ 




? 


NO - ALL DONE 


898 




JR 




DKRW9 5 ; 


YES - RESET TRACK TABLE 


899 


F966+1805 


DB 




18H,DKRW95-$-l 




900 










901 


• SEEK ERROR 








902 


DKRW90: 








903 


F968 F601 


ORI 




QMBUSY 


MARK AS SEEK ERROR 


904 




STX 




A, STATUS 


STORE STATUS 


905 


F96A+DD7701 


DB 




ODDH, 7 OH+A, STATUS 




906 


DKRW95: 








907 


F96D 3EFF 


MVI 




A,OFFH 


FORCE RECAL ON NEXT R/W 


908 


F96F CDICFC 


CALL 




SETRAK 




909 


F972 C9 


RET 








910 












911 












912 




• SUBROUTINE 


TO 


CHECK FOR MULTIPLE SECTOR OPERATION 


913 




• DECREMENTS 


SECTOR COUNT AND INCREMENTS SECTOR NUMBER. 


914 




SECTOR INTERLEAVE IS USED TO READ/WRITE SECTORS IN 


915 




LOGICAL ORDER. 






916 












917 




ENTRY: STATUS 


OF READ/WRITE IS 


IN 'A' 


918 
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919 




• EXIT: CARRY IS SET IF NO FURTHER READ/WRITE OPERATIONS 


920 




• ARE NECESSARY (COUNT EXHAUSTED 


OR ERROR OCCURRED) 


921 




• PACKET COUNT 


AND SECTOR NUMBER 


ARE UPDATED. 


922 










923 


NEXTSEC: 






924 


F973 FEOl 


CPI 


1 


STATUS OK? 


925 


F975 3F 


CMC 


t 


(REVERSE SENSE OF CARRY) 


926 


F976 D8 


RC 




EXIT - ERROR OCCURRED 


927 




DCRX 


NSECT ; 


DECREMENT SECTOR COUNT 


928 


F977+DD3506 


DB 


0DDH,035H,NSECT 




929 


F97A 37 


STC 


r 


SET CARRY IN CASE COUNT = 


930 


F97B C8 


RZ 


7 


EXIT ON ZERO COUNT 


931 
932 




INCREMENT DMA 


ADDRESS IN PACKET 




933 










934 




LDX 


A^DMAHI 


TAKE CARE OF POSSIBLE CARRY 


935 


F97C+DD7E05 


DB 


0DDH,A*8+46H,DMAHI 


936 


F97F C602 


ADI 


2 




937 




STX 


A,DMAHI 




938 


F981+DD7705 


DB 


0DDH,70H+A,DMAHI 




939 




LDX 


A,SECTN 


GET SECTOR NUMBER 


940 


F984+DD7E02 


DB 


0DDH,A*8+46H,SECTN 


941 


F987 C601 


ADI 


1 


NEXT SECTOR 


942 


F989 47 


MOV 


B,A 




943 


F98A E61F 


AN I 


SECNUM ; 


ISOLATE IT 


944 


F98C FEOA 


CPI 


QKMXSECT 


OVER THE LIMIT ON THE TRACK? 


945 




JRC 


NEXTSC15 


NO 


946 


F98E+3813 


DB 


38H,NEXTSC15-$-l 
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947 




.TRM7 


MFYTPcjr'i n • 


nFFTXfTTPTV n\7FP THP TTMTT 
L'EirXLNxl£!iijl \JM Hits xni!j LiJLPlXl* 


948 


F990+2006 


DB 






949 


?A2PFr 




RFfiPMAT • 


AT QFPTOD 1 n n\71?P THI? T TMTT 


950 


PQQR A7 




A 7 


PORTM riTCl? • 

kudiin uioJ\; 


7 J J. 




TP 7 

J r< Zi 


INrjAl ov^z U 




952 






9PH KFPYTQP? H — < — 1 

zon ^wrjAiov^zu — p—i 




953 




XTFYTQPI n • 






954 




IJUA 


rV ^ O £i\^ X IN 




955 


pQQQ+r\n7Fn9 


UD 


UJJUn^r\ OT*iDn ^OEiV^xIN 






FQQR F^pn 

r 17 Z7D EiOEiU 


r\JN ± 


MOT QPP'MTTM 




-/ J / 


FQQn Ffim 
r ^ ;7L/ r D u X 


Ur\± 






-7 J O 




C TV 


a CtrOTXT ■ 
i\ / DEiV^llN ) 


OT/^OT? TT TXT 1371 /^CTPT 

biUKti 11 IN FALKejI 


^ J -7 


FQ QF4-nn7 7 9 




nnnu 7nH4-A QFr'TW 
ujJUnf / unT/\ f oEil^ 1 IN 




960 


F9A2 C9 


PET 






961 










962 


F9A3 3F 


NEXTSC15: CMC 






963 




NEXTSC20: 






964 




STX 


B^SECNUM 




965 


F9A4+DD701F 


DB 


0DDH,70H+B,SECNUM 




966 


F9A7 C9 


PET 






967 










968 




PAGE 
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969 

970 ; DKRWSET - SET UP FOR READ OP WRITE 
971 

972 ; FUNCTION: SELECTS DRIVE AND CHECKS READY STATUS. HOMES 

973 ; DRIVE IF IT HAS NOT BEEN ACCESSED PREVIOUSLY. COMPARES 

974 7 DESIRED TRACK WITH CURRENT TRACK. 

975 ; 

976 ; ENTRY: IX = PACKET ADDRESS 

977 ; 

978 ; EXIT: HL = ADDRESS OF TRACK TABLE ENTRY FOR DRIVE 

979 ; Z FLAG IS SET IF CURRENT TRACK = DESIRED TRACK 

980 ; CARRY FLAG IS SET IF DRIVE IS NOT READY 

981 ; 

982 DKRWSET: 



983 


F9A8 CD32FB 


CALL 


DPSELDP 








SELECT DRIVE AND CHECK READY STATUS 


984 


F9AB D8 


PC 










EXIT - NOT READY 


985 


F9AC 3A31FC 


LDA 


BTRACK 








GET CURRENT TRACK 


986 


F9AF FEFF 


CPI 


OFFH 








FIRST ACCESS? 


987 




JRNZ 


DKPWSIO 








NO 


988 


F9B1+2008 


DB 


20H,DKRWS10- 


$ 


-1 






989 


F9B3 CDAIFA 


CALL 


DPPECAL 








HOME DRIVE 


990 


F9B6 CO 


PNZ 










EXIT ON HOME ERROR 


991 


F9B7 AF 


XPA 


A 








SET TRACK ZERO IN TABLE 


992 


F9B8 CDICFC 


CALL 


SETRAK 










993 




DKPWSIO: 












994 


F9BB 3A2FFC 


LDA 


BFORMAT 






7 


COMPARE DESIRED TRACK WITH 


995 


F9BE A7 


ANA 


A 






7 


CURRENT TRACK. SINCE CURRENT 


996 




LDX 


A,TRACKN 






7 


TRACK IS ALWAYS KEPT IN TRUE FORM, 


997 


F9BF+DD7E03 


DB 


0DDH,A*8+46H 




TRACKN 


998 




JPZ 


DKPWS20 - 






7 


MUST DOUBLE DESIRED TRACK IF 


999 


F9C2+2801 


DB 


28H,DKRWS20- 


$ 


-1 
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1000 


F9C4 


87 


ADD 


A 


; ROBIN MEDIA 


1001 






DKRWS2 0: 






1002 


F9C5 


47 


MOV 


B,A 




1003 


F9C6 


3A31FC 


LDA 


BTPACK 




1004 


F9C9 


A8 


XPA 


B 


; COMPARE WITH CURRENT 


1005 


F9CA 


C9 


RET 






1006 






7 






1007 












1008 






PAGE 







CP/M MACRO ASSEM 2.0 



1009 






1010 






1011 






1012 






1013 






1014 






1015 






1016 






1017 






1018 






1019 






1020 






1021 


F9CB 


CD47FA 


1022 






1023 






1024 


F9CE 


21EDA2 


1025 






1026 


F9D1 


224600 


1027 






1028 


F9D4+DD7E03 


1029 


F9D7 


D361 


1030 


F9D9 


1E80 


1031 


F9DB 


CDE5FB 


1032 


F9DE 


CD4000 


1033 


F9E1 


FB 


1034 


F9E2 


DB60 


1035 


F9E4 


E6BD 


1036 


F9E6 


C9 


1Q37 






1038 






1039 






1040 






1041 






1042 






1043 






1044 






1045 






1046 






1047 






1048 






1049 






1050 






1051 


F9E7 


CD47FA 


1052 







#024 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



DPREAD 



READ A SECTOR 



FUNCTION: READS ONE SECTOR FROM DISK. RETRIES WHEN ERROR IS 
ENCOUNTERED. 

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET 
EXIT: A = FDC STATUS 



DPREAD: 



DPREADX: 



DPREADZ ; 



CALL 


DPRWEX 


; (RETURNS TO CALLER OF DPREAD) 


LXI 


H,INII 


7 SET UP INI INSTR. 


SHLD 


INOROUT 




LDX 


A.TRACKN 


; SET TRACK FOR SECTOR READ OR 


DB 


0DDH,A*8+46H 


,TRACKN 


OUT 


QPTRKRG 


; WILL DIFFER FROM PHYS . TRACK 


MVI 


E,QCREADS 


; SEND COMMAND TO FDC 


CALL 


DPRWSET 




CALL 


RDORWR 


; TRANSFER DATA 


EI 




? REENABLE 


IN 


QPCOMD 


; GET STATUS 


AN I 


QMREAD 


; MASK ERRORS 


RET 




; RETURN WITH STATUS 



DPWRITE 



WRITE A SECTOR 



FUNCTION: WRITES ONE SECTOR TO DISK. RETRIES WHEN ERROR IS 
ENCOUNTERED. 

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET 
EXIT: A = FDC STATUS 
DPWRITE: 



CALL 



DPRWEX 



; (RETURNS TO CALLER OF DPWRITE) 
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1053 






DPWRTX : 






1054 


F9EA 


21EDA3 


LXI 


H^OUTII 


; SET UP OUTI INSTR. 


1055 


F9ED 


224600 


SHLD 


INOROUT 




1056 






LDX 


A,TPACKN 


; SET TRACK FOR SECTOR READ OR WRITE 


1057 


F9F0+DD7E03 


DB 


0DDH,A*8+46H 


,TRACKN 


1058 


F9F3 


D361 


OUT 


QPTRKRG 


; WILL DIFFER FROM PHYS . TRACK IF ROBIN 


1059 












1060 


F9F5 


CD19FA 


CALL 


GSODRV 


; GET "NOT READY" STATUS OF OTHER DRIVE 


1061 


F9F8 


D5 


PUSH 


D 


; SAVE FOR COMPARISON AFTER WRITE OF SECTOR 


1062 


F9F9 


lEAO 


MVI 


E,QCWRTS 


; SEND THIS COMMAND TO FDC 


1063 


F9FB 


CDE5FB 


CALL 


DPRWSET 




1064 


F9FE 


CD4000 


CALL 


RDORWR 


; TRANSFER DATA 
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1065 


FAOl 


FB 




EI 




; REENABLE 


1066 


FA02 


DB60 




IN 


QPCOMD 


; GET STATUS 


1067 


FA04 


E6FD 




AN I 


QMWRITE 


; MASK ERRORS 


1068 


FA06 


47 




MOV 


B,A 


; SAVE RESULT OF WRITE OPERATION 


1069 


FA07 


0E03 




MVI 


C , 3 


; 1,5 MSEC DELAY 


1070 


FA09 


CD4A00 




CALL 


UDELAY 


; FOR CONTROLLER TO FINISH WRT CLEANUP 


1071 


FAOC 


CD19FA 




CALL 


GSODRV 


; GET "NOT READY" STATUS OF OTHER DRIVE 


1072 


FAOF 


Dl 




POP 


D 


; RESTORE OLD STATUS OF OTHER DRIVE 


1073 


FAIO 


BA 




CMP 


D 


; COMPARE WITH OLD STATUS 


1074 


FAll 


3E00 




MVI 


A,0 


; ASSUME DOOR OF OTHER DRIVE WAS NOT TOUCHED 


1075 








JRZ 


DPWRT3 


; IT WAS 'NT 


1076 


FA13+2802 




DB 


28H,DPWRT3-$-l 




1077 


FA15 


3E08 




MVI 


A,QMCRC 


; IT WAS - REPORT AS CRC ERROR 


1078 


FA17 


BO 


DPWRT3: ORA 


B 


; GET STATUS RESULT OF WRITE OPERATION 


1079 


FA18 


C9 




RET 




; RETURN WITH STATUS 


1080 














1081 








GET "NOT READY" STATUS 


OF OTHER DRIVE 


1082 














1083 






GSODRV: 






1084 


FA19 


3A2EFC 




LDA 


BCURDRV 


; GET CURRENT DRIVE SELECTED 


1085 


FAIC 


EEOl 




XRI 


1 


; SWITCH TO OTHER DRIVE 


1086 


FAIE 


D340 




OUT 


QPSTAT 


; SELECT OTHER DRIVE 


1087 


FA20 


CD2EFA 




CALL 


DELAY7 


; DELAY 7 USECS 


1088 


FA23 


DB60 




IN 


QPCOMD 


; GET STATUS OF OTHER DRIVE 


1089 


FA25 


E680 




AN I 


QMNRDY 


; THIS BIT TELLS US IF DOOR WAS OPENED OR CLOSED 


1090 


FA27 


57 




MOV 


D,A 


; SAVE FOR COMPARISON AFTER WRITE OF SECTOR 


1091 


FA28 


3A30FC 




LDA 


TCURDRV 


; CURRENT DRIVE WITH PRE COMP BIT SET IF NECESSARY 


1092 


FA2B 


D340 




OUT 


QPSTAT 


; RESELECT CURRENT DRIVE 


1093 


FA2D 


7A 




MOV 


A,D 


; RESTORE FOR COMPARISON AFTER WRITE OF SECTOR 


1094 


FA2E 


C9 


DELAY7: RET 




; PROVIDES ~ 7 USEC DELAY 


1095 














1096 














1097 








• DPRDADR - 


READ ADDRESS 




1098 














1099 








' FUNCTION: READS ADDRESS OF A 


DISK SECTOR 


1100 








(USED 


TO DETERMINE TRACK NUMBER) 


1101 














1102 








ENTRY: N/A 






1103 














1104 








• EXIT: TRACK 


NUMBER IS IN SECTOR REGISTER OF FDC 


1105 








(NO DATA IS 


TRANSFERRED) 
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1106 












1107 












1108 






DPRDADR : 






1109 


FA2F 


CD47FA 


CALL 


DPRWEX ; (RETURNS TO CALLER OF DPRDADR) 


1110 












llli 






DPRDADRX: 






1112 


FA3 2 


21DB63 


LXI 


H^ININ ; SET UP IN QPDATA INSTR. 


1113 


FAS 5 


224600 


SHLD 


INOROUT 




1114 


FA38 


lECO 


MVI 


E,QCRDADR ; SEND COMMAND TO FDC 


1115 


FA3A 


CDE5FB 


CALL 


DPRWSET 




1116 


FA3D 


CD4000 


CALL 


RDORWR 


• TRANSFER DATA 


1117 


FA40 


FB 


EI 




• REENABLE 


1118 


FA41 


DB60 


IN 


QPCOMD 


• GET STATUS 


1119 


FA4 3 


E69D 


AN I 


QMRDADR 


MASK ERRORS 


1120 


FA45 


37 


STC 




• INHIBIT ADVANCED ERROR RECOVERY 
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1121 


FA46 


C9 






RET 


; RETURN WITH STATUS 


1122 
















1123 
















1124 
















1125 








' DPRWEX - 


EXECUTES A READ OR WRITE OPERATION 


1126 
















1127 








? FUNCTION: 


EXECUTES A READ OR WRITE OPERATION AND PERFORMS 


1128 








' ERROR RECOVERY AS NECESSARY. 




1129 
















1130 








• ENTRY 


: ADDRESS OF PHYSICAL I/O 


ROUTINE IS ON TOP OF STACK 


1131 
















1132 








• EXIT: 


A = 


FDC STATUS 




1133 
















1134 






DPRWEX: 








1135 


FA47 


El 






POP 


H 


• GET I/O ROUTINE ADDRESS 


1136 


FA48 


E5 






PUSH 


H 


• SAVE FOR ERROR RECOVERY 


1137 


FA49 


CDAOFA 






CALL 


DPRWE90 


• EXECUTE THE ROUTINE 


1138 


FA4C 


El 






POP 


H 


' RECOVER I/O ROUTINE ADDRESS 


1139 


FA4D 


C8 






RZ 




; EXIT IF NO ERRORS 


1140 






; ERROR 


RECOVERY PROCESSING 




1141 


FA4E 


5F 






MOV 


E,A ; SAVE ERROR CODES 


1142 










JRC 


DPRWEIO ; JUST A FEW RETRIES IF CARRY SET 


1143 


FA4F+3804 






DB 


38H,DPRWE10-$-l 




1144 


FA51 


E618 






AN I 


QMCRC+QMRNF ; CRC ERROR OR RNF? 


1145 










JRNZ 


DPRWE20 ; YES - PROCESS IT 


1146 


FA53+2014 






DB 


20H,DPRWE20~$-1 




1147 
















1148 








• REPEAT OPERATION UNTIL RETRY COUNT IS EXHAUSTED 


1149 
















1150 






DPRWEIO 








1151 


FA55 


1604 






MVI 


D^QKDRETRY ; INITIALIZE RETRY COUNTER 


1152 






DPRWE15 








1153 


FA57 


D5 






PUSH 


D ; STASH RETRY COUNT AND ORIGINAL ERROR 


1154 


FA58 


3ED0 






MVI 


A.QCTERM 




1155 


FA5A 


D360 






OUT 


QPCOMD ; 


TERMINATE COMMAND 


1156 


FA5C 


E5 






PUSH 


H 


• PRESERVE I/O ROUTINE ADDRESS 


1157 


FA5D 


CDAOFA 






CALL 


DPRWE90 ; 


EXECUTE IT 


1158 


FA60 


El 






POP 


H ; 


GET BACK STUFF THAT WAS STASHED 
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1159 


FA61 Dl 


POP 


D 






1160 


FA62 C8 


PZ 






EXIT IF SUCCESSFUL 


1161 


FA63 15 


DCR 


D 




ANY MORE RETRIES LEFT? 


1162 




JRNZ 


DPRWE15 




TRY AGAIN 


1163 


FA64+20F1 


DB 


20H,DPRWEl5-$-l 






1164 


FA66 7B 


MOV 


A,E 




GET FDC STATUS 


1165 


FA67 A7 


ANA 


A 


? 


SET TO NON-0 TO INDICATE ERROR 


1166 


FA68 C9 


RET 








1167 












1168 




; REPEAT OPERATION, THEN PERFORM ADVANCED RECOVERY 


1169 












1170 




DPRWE20: 








1171 


FA69 CD55FA 


CALL 


DPRWEIO 


r 


REPEAT OPERATION 


1172 


FA6C C8 


RZ 




t 


EXIT IF SUCCESSFULL 


1173 




; RESTORE DRIVE 


, SEEK AGAIN AND 


DO OPERATION ONE MORE 


1174 


FA6D D5 


PUSH 


D 




SAVE I/O ROTINA ADDRESS, RETRY COUNT AND 


1175 


FA6E E5 


PUSH 


H 




ORIGINAL ERROR STATUS 


1176 


FA6F CDAIFA 


CALL 


DPRECAL 




RESTORE 


P/M MACRO ASSEM 2.0 


#027 Z80 PSEUDO, INTERFACE AND 


PRIMITIVE ROUTINES - SHARED VERSION 


±1 1 1 




JRNZ 


DPRWE80 


r 


HARD RESTORE ERROR 


J. ± / 


i?a7 Oj.ono7 
r A / Z + Z U Z / 


Dd 


20H,DPRWE80-$-l 






1179 




CAT T. 


DPSEEKl 


r 


SEEK TO TRACK 


X JL U 




JRNZ 


DPRWE80 




HARD SEEK ERROR 


± ± o X 


T?2V77xOnOO 
r A / / + Z U ZZ 


DB 


20H,DPRWE80-$-l 






X J. O <6 


PA7Q PI 


rKJir 


H 


f 


GET ALL THAT STUFF BACK 


X ± o J 




rUr 


D 






1184 


FA7B CD55FA 


CALL 


DPRWEIO 




AND DO SOME MORE RETRIES 


1185 


FA7E C8 


RZ 






SUCCESS 


1186 




LDX 


D,TRACKN 




NOW WE TRY TO SNEAK UP ON IT FROM 


1187 


FA7F+DD5603 


DB 


ODDH , D * 8 +4 6H , TRACKN 


1188 


FA82 E5 


PUSH 


H 




THE OTHER SIDE: SEEK TO TRACK 79 


1189 


FA83 D5 


PUSH 


D 




AND THEN BACK TO THE TARGET TRACK. 


1190 




MVIX 


QKMXTRK, TRACKN 




TO DO THIS, WE MUST SVE TARGET TRACK 


1191 


FA84+DD36034F 


DB 


ODDH , 3 6H , TRACKN , QKMXTRK 


1192 


FA88 CDDFFA 


CALL 


DPSEEKX 


/ 


AND SUBSTITUTE 79 IN PACKET 


1193 


FA8B Dl 


POP 


D 


r 


PUT BACK CORRECT TRACK INTO PACKET 


1194 




STX 


D, TRACKN 






1195 


FA8C+DD7203 


DB 


ODDH, 7 OH+D, TRACKN 




1196 


FA8F D5 


PUSH 


D 


? 


REMEMBER: E HAS ORIGINAL ERROR STATUS 


1197 




JRNZ 


DPRWE80 


7 


OOPS: COLDN'T GET TO TRACK 79 


1198 


FA90+2009 


DB 


20H,DPRWE80-$-l 






1199 


FA92 CDCCFA 


CALL 


DPSEEKl 


7 


BACK TO DESIRED TRACK 


1200 




JRNZ 


DPRWE80 


7 


SEEK ERROR 


1201 


FA95+2004 


DB 


20H,DPRWE80-$-l 






1202 


FA97 Dl 


POP 


D 






1203 


FA98 El 


POP 


H 






1204 




JR 


DPRWEIO 


7 


FINAL ATTEMPT. RETURN TO CALLER. 


1205 


FA99+18BA 


DB 


18H,DPRWE10-$-l 






1206 












1207 




; RESTORE/SEEK 


ERROR EXIT 






1208 












1209 




DPRWE80: 








1210 


FA9B El 


POP 


H 


7 


FIXUP STACK 


1211 


FA9C El 


POP 


H 
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FA9D F601 
FA9F C9 



FAAO E9 



1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 

CP/M MACRO ASSEM 2.0 



ORI QMBUSY 
PET 

INDIRECT CALL 
DPRWE90: 

PCHL 



; MARK AS SEEK ERROR 



DPRECAL 



RESTORE DRIVE 



FUNCTION - RETURNS THE HEAD TO TRACK ZERO 

CHECKS FORMAT TO SEE IF VT-180 DISK IS IN DRIVE 

ENTRY: N/A 



EXIT: 



#028 



A = DISK CONTROLLER STATUS 

ZERO FLAG IS SET IF RESTORE WAS SUCCESSFUL 
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES 



SHARED VERSION 



1233 














1234 






DPRECAL: 








1235 


FAAl 


CDB2FA 


CALL 


DPRECALX 


r 


PERFORM RESTORE 


1236 


FAA4 


C8 


RZ 




r 


OK 


1237 






; ERROR RECOVERY - STEP IN FIVE 


TIMES AND REPEAT 


1238 


FAA5 


0605 


MVI 


B,5 


7 


SET NP OF STEPS 


1239 






DPRECALl : 








1240 


FAA7 


3E48 


MVI 


A,QCSTEPIN 






1241 


FAA9 


CDDDFB 


CALL 


DPCOMD 


7 


STEP IN ONCE 


1242 






DJNZ 


DPRECALl 


f 


REPEAT 


1243 


FAAC+10F9 


DB 


10H,DPRECALl-$-l 






1244 


FAAE 


CDB2FA 


CALL 


DPRECALX 


f 


RESTORE AGAIN 


1245 


FABl 


C9 


RET 




7 


EXIT COME WHAT MAY 


1246 














1247 














1248 














1249 






; DPRECALX - 


DO RESTORE OPERATION 




1250 














1251 






DPRECALX: 








1252 


FAB2 


3E08 


MVI 


A.QCREST 






1253 


FAB4 


CDDDFB 


CALL 


DPCOMD 




DO RESTORE 


1254 


FAB7 


DB60 


IN 


QPCOMD 




GET FDC STATUS 


1255 


FAB9 


4F 


MOV 


C,A 




SAVE STATUS 


1256 


FABA 


E604 


ANI 


QMTZERO 




AT TRACK ZERO? 


1257 






JRNZ 


DPRECALXl 




YES 


1258 


FABC+2004 


DB 


20H,DPRECALXl-$- 






1259 


FABE 


2F 


CMA 






SET NONZERO STATUS 


1260 


FABF 


B7 


ORA 


A 




SET FLAGS 


1261 


FACO 


79 


MOV 


A,C 




GET STATUS BACK 


1262 


FACl 


C9 


RET 






EXIT - NOT AT TRACK 


1263 






DPRECALXl: 








1264 


FAC2 


79 


MOV 


A,C 




GET STATUS BACK 
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± Z 3 








AN I 


QMREST 7 MASK ERRORS 


± 4&0 


r H^D 


70 




MOV 


A,C ; RETURN FULL STATUS 


1 ZD / 


r ALD 






RET 


; RETURN WITH STATUS 


± ZD o 












1 ZDy 












1 "7 n 

1 z / u 








► DPSEEK - 


SEEK TO TRACK 


1271 












lz7z 








• FUNCTION: SEEKS TO THE DESIRED TRACK. TESTS FOR ERRORS 


1273 








AND RETRIES 


AS NECESSARY. SETS PRECOMPENSATION BITS FOR 


1274 








' RAINBOW DISKETTE. PERFORMS SPECIAL SEEK FOR VT180 FORMAT 


1275 








' DISKETTE. 




1276 












Iz / / 












1 O "7 O 

Iz / O 








• ENTRY: DESIRED TRACK NUMBER IS IN PACKET 


1 O "7 ft 

lz79 








• POINTER TO 


PACKET IS IN IX. 


1 zoU 












1281 








• EXIT: A = FDC STATUS 


1282 








ZERO 


FLAG IS SET IF SEEK WAS SUCCESSFUL 


1283 












1284 






DPSEEK: 




1285 


FAC7 


3A31FC 




LDA 


BTRACK ; PUT CURRENT TRACK NO INTO REG 


1286 


FACA 


D361 




OUT 


QPTRKRG 


1287 






DPSEEKl: 




1288 


FACC 


3A2FFC 




LDA 


BFORMAT ; GET CURRENT FORMAT 


?/M MACRO ASSEM 2.0 


#029 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 


1289 


FACF 


A7 




ANA 


A ; IS IT RAINBOW? 


1290 


FADO 


C2F8FA 




JNZ 


DPSEEKV ; NO - DO VT-180 SEEK 


1291 


FAD 3 


CDDFFA 




CALL 


DPSEEKX ; DO SEEK OPERATION 


1292 


FAD6 


C8 




RZ 


; OK 


1293 






; ERROR RECOVERY - RESTORE AND SEEK AGAIN 


1294 


FAD7 


CDAIFA 




CALL 


DPRECAL ; RESTORE DRIVE 


1295 


FADA 


CO 




RNZ 


; HARD RESTORE ERROR 


1296 


FADE 


CDDFFA 




CALL 


DPSEEKX ; TRY SEEK AGAIN 


1297 


FADE 


C9 




RET 




1298 












1299 












1300 








• DPSEEKX - 


PERFORM SEEK OPERATION 


1301 












1302 






DPSEEKX: 




1303 








LDX 


A,TRACKN ; GET TRACK NR FROM PACKET 


1304 


FADF+DD7E03 




DB 


ODDH , A*8+46H ,TRACKN 


1305 


FAE2 


FE50 




CPI 


QKMXTRK+1 ; CATCH ANY BAD TRACK REQUESTS SO AS NOT 


1306 








JRNC 


DPSEEKE ; TO HANG IN AN IMPOSSIBLE SEEK 


1307 


FAE4+300E 




DB 


30H,DPSEEKE-$-l 


1308 


FAE6 


D363 




OUT 


QPDATA ; SEND IT TO FDC 


1309 


FAE8 


E3 




XTHL 


; DELAY A BIT BEFORE COMMAND REG WRITE 


1310 


FAE9 


E3 




XTHL 




1311 


FAEA 


3E1C 




MVI 


A,QCSEEK 


1312 


FAEC 


CDDDFB 




CALL 


DPCOMD ; EXECUTE SEEK 


1313 








; MVI 


C,40 ; DELAY FOR HEAD SETTLING 


1314 








; CALL 


UDELAY 


1315 


FAEF 


DB60 




IN 


QPCOMD ; GET STATUS 


1316 


FAFl 


E699 




AN I 


QMSEEK ; MASK ERRORS 


1317 


FAF3 


C9 




RET 


; RETURN WITH STATUS 
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1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 



FAF4 3E01 
FAF6 A7 
FAF7 C9 



FAF8 CD09FB 
FAFB CD09FB 



FAFE CDAIFA 



DPSEEKE: 



MVI 
ANA 
RET 



A,QMBUSY 
A 



ILLEGAL TRACK REQUESTED. INDICATE SEEK 
ERROR WITH NO OTHER STATUS 



DPSEEKV - VT-180 FORMAT SEEK ROUTINE 

FUNCTION: PERFORMS SEEK ON A VT-180 FORMAT (40 TRACK) 
DISKETTE. DOES A SEEK WITH NO VERIFICATION TO THE 
SPECIFIED VT-180 TRACK MULTIPLIED BY TWO, THEN READS 
AN ADDRESS FROM THE DISKETTE TO VERIFY THAT THE 
SEEK WAS SUCCESSFUL. 



ENTRY: IX 



PACKET ADDRESS 



EXIT: A = STATUS 
DPSEEKV: 



CALL 
CALL 



DPSEEKVX 
DPSEEKVX 



SEEK ERROR AGAIN 



; PERFORM SEEK 

; SEEK ERROR - TRY AGAIN 

HOME DISK AND RETRY 



CP/M MACRO ASSEM 2.0 



#030 



CALL DPRECAL ; HOME DISK 

Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



1345 


FBOl CO 


RNZ 




EXIT ON RECAL ERROR 


1346 


FB02 CD09FB 


CALL 


DPSEEKVX ; 


TRY SEEK AGAIN 


1347 


FB05 CD09FB 


CALL 


DPSEEKVX 


AND AGAIN 


1348 


FB08 C9 


RET 






1349 










1350 










1351 




; DPSEEKVX - 


PERFORM VT-180 SEEK 


OPERATION 


1352 










1353 




DPSEEKVX: 






1354 




LDX 


A,TRACKN ; 


GET DESIRED TRACK 


1355 


FB09+DD7E03 


DB 


0DDH,A*8+46H,TRACKN 


1356 


FBOC 87 


ADD 


A 


MULTIPLY TRACK BY 2 


1357 


FBOD FE50 


CPI 


QKMXTRK+1 ; 


CATCH ANY BAD TRACK REQUESTS SO 


1358 




JRNC 


DPSEEKE ; 


TO HANG IN AN IMPOSSIBLE SEEK 


1359 


FB0F+30E3 


DB 


30H,DPSEEKE-$-l 




1360 


FBll CD27FB 


CALL 


DPSEEKN ; 


SEEK WITH NO VERIFY 


1361 


FB14 CD2FFA 


CALL 


DPRDADR 


READ ADDRESS 


1362 


FB17 4F 


MOV 


C,A ; 


SAVE STATUS 


1363 


FB18 A7 


ANA 


A 


READ ERROR? 


1364 


FB19 CO 


RNZ 




YES - EXIT 


1365 


FBIA DB62 


IN 


QPSECRG ; 


GET TRACK NUMBER 


1366 




CMPX 


TRACKN ; 


COMPARE WITH DESIRED TRACK 


1367 


FB1C+DDBE03 


DB 


ODDH,OBEH,TRACKN 




1368 


FBIF 79 


MOV 


A,C 


GET STATUS BACK 


1369 


FB20 CO 


RNZ 


r 


ERROR - NOT AT REQUESTED TRACK 


1370 


FB21 El 


POP 


H ; 


NO ERROR - EMPTY STK FOR 'GOOD' 
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1371 FB22 C9 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 

CP/M MACPO ASSEM 2.0 



FB23 1610 



FB25+1802 



FB27 1618 
FB29 D363 
FB2B 7A 
FB2C E3 
FB2D E3 
FB2E CDDDFB 
FB31 C9 



PET 
DPSEEKN - 



SEEK WITH NO VERIFY 



FUNCTION: SEEKS A SPECIFIED TPACK BUT DOES NO VEPIFY THE 
SUCCESS OF THE SEEK. USED FOP STARTING MOTOR AND 
THE VT-180 SEEK. 

ENTRY: A = DESIRED TRACK NUMBER 
EXIT: N/A 



DPSEKHO: 

MVI 

JR 

DB 

DPSEEKN: 

MVI 

DPSEKN3: OUT 
MOV 
XTHL 
XTHL 
CALL 
RET 



D,QCSEKHO 
DPSEKN3 

18H,DPSEKN3-$-l 



D,QCSEEKN 

QPDATA 

A,D 



DPCOMD 



;SEEK WITH NO HEAD LOAD 



;SEEK WITH HEAD LOAD 
; SEND TRACK NR TO FDC 
;SEEK COMMAND 



DO SEEK 



DPSELDR - SELECT DRIVE AND CHECK IF IT'S READY 
#031 Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION 



1401 






1402 






1403 






1404 






1405 






1406 






1407 






1408 






1409 






1410 


FB32 


CD13FC 


1411 


FB35 


5F 


1412 






1413 


FB36+DD7E03 


1414 


FB39 


FE3D 


1415 


FB3B 


3E00 


1416 






1417 


FB3D+3802 


1418 


FB3F 


3E40 


1419 






1420 


FB41 


B3 


1421 


FB4 2 


3230FC 


1422 


FB4 5 


D340 


1423 







ENTRY: DRIVE NUMBER IS IN PACKET 

EXIT: DRIVE NUMBER IN E 

IF DRIVE WAS NOT READY, CARRY FLAG IS SET 
AND 'NOT READY' STATUS IS STORED IN PACKET 



DPSELDR: 



DPSELl: 



DPSEL2: 



CALL 


GETDRV 


? 


GET DRIVE NUMBER 


MOV 


E,A 






LDX 


A^TRACKN 


? 


NOW SEE IF WRITE PRECOMP 


DB 


0DDH,A*8+46H, 


TPACKN 


CPI 


QKPCTRK 


? 


NEEDED: I.E., WHETHER 


MVI 


A,0 


? 


BEYOND TRACK 60 


JRC 


DPSELl 






DB 


38H,DPSELl-$- 


1 




MVI 


A,QKPCBIT 






ORA 


E 






STA 


TCURDRV 


7 


DRIVE SELECTED WITH PRE 


OUT 


QPSTAT 


? 


SELECT DRIVE 
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14 24 


PR47 nR^^;n 

r D** / UDD u 


IN 






HFT FDP ciTATFTc: 




1 4 9 R 
1 ft Z D 


T?R4Q P^PI 


rtLN X 


\iv\ D U iD X T^^l'J IN r> IJ 1 




PFAnV ANin WOT RTTQV? 




X ft Z O 




.TP 7 

yj iS u 






YES 




1 497 

X *i £. 1 


PR4R-I- 9 PIT 


DB 


9PH nP*^FT.'^-$-1 








1428 


L 1_J *T JL> i-J \J \J A- 


AN I 


QMBUSY 




BUSY? 




1429 




JRNZ 


nPSEL2 

j_y \^ i-j i_i ^ 


? 


YES - WATT IT OUT 




1430 


PB4P+20F6 


DB 


2 0H .DPSEL2-S-1 








1431 


FB51 DB61 


IN 


QPTPKRG 




NO: NOT READY. DUMMY SEEK TO 


CURRENT TRACK 


1 4 9 

X Hr O Z 




PAr.T. 

V>^r\ J_iXj 


nPQFFKN 

XT O Ej El Ix IN 




TO READY DRIVE IF POSSIBLE 




± t J O 


C D J U L/D U U 


IN 






GET FDC STATUS 




1434 


FB58 E680 


AN I 


QMNPDY 




STILL NOT READY? 




1435 




JRNZ 


DPSELS2 




YES - RETURN NOT READY STATUS 


± ft J D 


xpni^Aj-9n^;i2 
r dDAtZ UDd 


nR 


9nH 'n'DQ PT Q 9 — 1 








1437 




JP 






IGNORE CHECK FOR ISSUANCE OF ' 


HLT' TO 1793 


1 4 P 

± *T J O 


PRCiP+l P9A 


DB 


1 PR npcjpT.^r— 1 

XOn ^ L/ irO Ej 1j J X 








1439 
1440 




? 

DPSEL3 : 










1441 


FB5E 3A2EFC 


LDA 


BCURDRV 




GET CURRENT DRIVE NR 




1442 


FB61 AB 


XPA 


E 




SAME AS DESIRED DRIVE? 




1443 




JRZ 


DPSEL4 




YES - GO SEE IF FIRST ACCESS 


AFTER RESET 


1444 


FB62+2838 


DB 


28H,DPSEL4-$-l 








1445 




LDX 


A.FNCCOD 


? 


GET FUNCTION CODE 




1446 


FB64+DD7E00 


DB 


0DDH,A*8+4 6B,FNCCOD 




1447 


FRfi7 FFl 4 


CPI 


QKWTCOM 


/ 


WRITE TO BE DONE? 




1 44R 




.TPW7 


DPSEL3C 


? 


NO 




1 44Q 

± *± *i !7 


FRf% Q4-9 m n 


DB 


20H,DPSEL3C-$-l 








± *i J U 














1 4 

± ** J X 


FRfiR ?A9FFr 


LDA 


BCURDRV 




YES - THEN GET CURRENT DRIVE 




1452 


FRfiF FfiO? 


AN I 


2 




CHECK FOR SELECT OF A OR B 




1453 


FB70 57 


MOV 


D,A 




TO C OR D; C OR D TO A OR B 




1454 


FB71 7B 


MOV 


A,E 




NEW DRIVE TO SELECT 




1455 


FB72 E602 


AN I 


2 








1456 


FB74 BA 


CMP 


D 
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1457 




JRNZ 


DPSEL3A 


1458 


FB75+2007 


DB 


20H,DPSEL3A-$-l 


1459 








1460 




f A TO 


B, B TO A, C TO D, D TO C 


1461 








1462 


FB77 0E3C 


MVI 


C,60 ; DELAY FOR 30 MSEC TO ALLOW HEADS TO 


1463 


FB79 CD4A00 


CALL 


UDELAY ; SETTLE DURING HEAD LOAD 


1464 




JR 


DPSEL3C 


1465 


FB7C+180A 


DB 


18H,DPSEL3C-$-l 


1466 








1467 




THE SELECT FROM A OR B TO C OR D; C OR D TO A OR B REQUIRES 


1468 




THE ISSUANCE OF A SEEK WITH QMHLT = 0, THEN QMHLT = 1, WITH NO 


1469 




THIS 


INHIBITS THE "HLT" INPUT TO THE 1793 FOR ~ 500 MSECS 


1470 




WHICH 


ALLOWS THE MOTOR TO GET UP TO SPEED. 


1471 








1472 


DPSEL3A: 




1473 


FB7E DB61 


IN 


QPTPKRG ; CURRENT TRACK 


1474 


FB80 CD23FB 


CALL 


DPSEKHO ;SEEK WITH NO HEAD LOAD 


1475 


FB83 DB61 


IN 


QPTPKRG 


1476 


FB85 CD27FB 


CALL 


DPSEEKN ;SEEK WITH HEAD LOAD 
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1477 
















1478 


FB88 


7B 


DPSEL3C 


: MOV 


A , E 




SFT NFW DRTVF AC! rTTRRFNT 


1479 


FB89 


J 4u £m xj L 




STA 


D U XxLyJA V 






1480 


FB8C 


CDD2FB 




CALL 


GETRAK 




GET riTRT? TRACK FROM TART.F 


1481 


FB8F 


3231FC 




STA 


BTRACK 




AND 55TORF TT 

n, IN 1^ X \J JEV JJ XX 


1482 








MVI 






DFT.AV FOR HFAD c'p'PTT.TTan 

\JEiLJt\l. CKJiS nCitWJ 0£iXXlJXLN\Jt 


1483 








CALL 


TTDFT.AY 

vJ JL/ JLj Jjn X 






1484 






; SET FORMAT 


AND TRACK RECIT<^TRR 






1485 


FB92 


21F4FF 




T YT 


H TFnPMAT 




pzlqf of FOPMI^T TZVPT.F 


1486 


FB9 5 


1600 




V J. 


r> n 






1487 


FB97 


19 




Ur\U 


T\ 
Lf 




OFF^FT TMTn TAPT.F 


JL •* O O 


r Dy o 


/ El 




MUV 


A M 




/^T?fTi P/^DlUIArT' TXTt?/^ 

vjEi i rUKMAl INrU 


1489 




J ^ ^ r r 




b lA 






QTHDl? T"Nf PTTRPTrMT TTOPMAT 
oiUKCi ±IN V^UKKEjINI rUKPlAl 


1490 






•npClTT A • 
UirD Ei1j4 Z 










1491 


FB9C 


3A3 IFC 




T 'HA 


D X r\/\v^ j\ 






1492 


FB9F 


3C 




1 lNx\ 


A 

r\ 




rnPP TPATK TQ FF HM FTPQT ATPFCIQ AFTFP riJCJIf 


1493 


FBAO 


CO 




PNZ 




/ 


cvCfPFM RF^IFT TF NOT TONSTDFR DRIVE READY 


1494 






L/Xr O EjJLt ^ • 










1495 


FBAl 


DB61 




TN 


OPTRKRG 

^ JT X x>r\i\vj 


7 


FORTF TYPF 1 ^^TATTT^ 


1496 


FBA3 


CD27FB 




CALL 


DPSEEKN 






1497 














ON FTR<5T ACCESS TO A DRIVE AFTER A DISK 


1498 














SYSTEM RESET MAKE SURE DISK IS IN 


1499 












' 


DRIVE RIGHT SIDE OP BY LOOKING FOR A 

Xy X\ X V 1—1 X\ X Vj XI X V-/ X LJ l_i XJ X XJW W X\ X XN VJ X Vy X\ ii 


1500 














CHANGE IN THE INDEX PTTLSE STATTTS ON A 


1501 














TIMEOUT DRIVE IS CONSIDERED NOT READY- 

X X L 1 1-J \y w X ^ X X X V XJ X i-/ \m/ m X xy lj xx xj xy x^ \y x x^ lj x^ x • 


1502 


FBA6 


21409C 




LXI 


H .OKDRCNT 






1503 






U JfiJ Ci Jj O • 










1504 


FBA9 


DB60 




IN 


OPCOMD 




READ STATUS ONCE TO GET RID OF SPURIOUS 

X\ U LI U yJ X ii X i-J \J XN v^ Xj X \J VjJ-IX X\ X LJ \J X i^xl^XAXvyl_>U 


1505 


FBAB 


DB60 




IN 


QPCOMD 




INDEX STATUS 


1506 


FBAD 


E602 




AN I 


QMINDEX 




SAVE STARTING INDEX BIT STATE 


1507 


FBAF 


47 




MOV 


B,A 






1508 


FBBO 


CDB8FB 




CALL 


DPSELS 




WAIT FOR 1 CHANGE IN INDEX 


1509 


FBB3 


CDB8FB 




CALL 


DPSELS 




WATT FOR 9Nn PHANGF 


1510 


FBB6 


A7 




ANA 


A 




GT.FAR CARRY 

v.^ XJ X-j ti. X \ v^ r\ x\ X\ X 


1511 


FBB7 


C9 




PET 






DISK IS OK 

JL/ X O X\ X O \J J[\ 


1512 














SURROUTTNF • PHFCKS FOR CHANGF IN INDEX BIT 

OUOIxWUXXLNEi* v..rilJV^£VO C \J sS V^JLlnLNVJlZi XLN XLNLyxi^ IJXX 


VM MACRO ASSEM 2.0 


4 n "5 
f U O J 


Z80 PSEUDO, INTERFACE AND 


PRTMTTT\7F ROnTTXTFC; _ GHAPFn \7FPSTOKF 
Ir r\ X Cl X X X V Jlj JaVJU X X LN EjO DnriI\EjU VEirxDXwLN 


1513 


FBB8 


2B 




DCX 


H 






1514 


FBB9 


7C 




MOV 


A,H 






1515 


FBBA 


B5 




ORA 


L 






1516 








JRZ 


DPSELSl 


? 


TTMFOTTT* DTSK NOT PFADY 

XXluEiWUX* UXO£\ iNv/X i\£jt\U x. 


1517 


FBBB+2809 




DB 


28H,DPSELSl-$-l 






1518 


FBBD 


DB60 




IN 


QPCOMD 






1519 


FBBF 


E602 




AN I 


QMINDEX 






1520 


FBCl 


B8 




CMP 


B 






1521 


FBC2 


47 




MOV 


B,A 


/ 


SAVE NEW INDEX STATUS 


1522 


FBC3 


CO 




RNZ 




/ 


AHA — CHANGE HAS OCCURRED. 


1523 








JR 


DPSELS 






1524 


FBC4+18F2 




DB 


18H,DPSELS-$-l 






1525 






DPSELSl 










1526 


FBC6 


CI 




POP 


B 






1527 






DPSELS2 










1528 


FBC7 


DB61 




IN 


QPTRKRG 


? 


GET CURRENT TRACK # 


1529 


FBC9 


CD23FB 




CALL 


DPSEKHO 




UNLOAD HEADS 
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1530 








MVIX 


QMNRDY, STATUS ; SET NOT READY STATUS 


1531 


FBCC+DD360180 




DB 


ODDH , 3 6H , STATUS , QMNRDY 


1532 


FBDO 


37 




STC 


; CARRY MEANS NOT READY 


1533 


FBDl 


C9 




PET 




1534 












1535 












1536 








• GETPAK - 


GET CURRENT TRACK NUMBER FROM TRACK TABLE 


1537 












1538 








• ENTRY: 


A = DRIVE NUMBER 


1539 












1540 








• EXIT: 


A = TRACK NUMBER 


1541 










HL= TRACK TABLE POINTER FOR DRIVE 


1542 












1543 






GETRAK: 




1544 


FBD2 


E602 




AN I 


2 ; ** FOR RX-50 COUPLED DRIVES 


1545 


FBD4 


4F 




MOV 


C,A 


1546 


FBD5 


0600 




MVI 


B,0 


1547 


FBD7 


21F0FF 




LXI 


H,TTRACK ; BASE OF TRACK TABLE 


1548 


FBDA 


09 




DAD 


B ; OFFSET INTO TRACK TABLE 


1549 


FBDB 


7E 




MOV 


A,M ; GET TRACK FOR THIS DRIVE 


1550 


FBDC 


C9 




RET 




1551 












1552 












1553 












1554 












1555 








' DPCOMD - 


EXECUTE A TYPE 1 COMMAND 


1556 












1557 








• WAITS UNTIL 


COMMAND IS COMPLETED BEFORE RETURNING 


1558 












1559 








► ENTRY: COMMAND CODE IS IN 'A' REG. 


1560 












1561 






DPCOMD: 




1562 


FBDD 


D360 




OUT 


QPCOMD ; SEND COMMAND TO FDC 


1563 






DPCOMDl : 




1564 


FBDF 


DB40 




IN 


QPSTAT ; GET GENERAL STATUS 


1565 


FBEl 


87 




ADD 


A ; SHIFT INT. BIT TO SIGN 


1566 


FBE2 


F8 




RM 


; EXIT ON INTERRUPT 


1567 








JR 


DPCOMDl ; LOOP UNTIL DONE 


1568 


FBE3+18FA 




DB 


18H,DPC0MDl-$-l 
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1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 



DPRWSET - SET UP FDC AND SEND TYPE 2 OR 3 (READ/WRITE) COMMAND 
FUNCTION: SENDS SECTOR TO FDC. ADDS HEAD LOAD BIT TO COMMAND 
IF HEAD IS NOT ALREADY LOADED. SETS UP REGISTERS FOR INI AND 
OUTI INSTRUCTIONS. SENDS COMMAND TO FDC. 



ENTRY: FDC COMMAND IS IN "E" REG. SECTOR IS IN PACKET. 
EXIT: N/A 
DPRWSET: 



FBE5 DB60 



IN 



QPCOMD 



; GET CONTROLLER STATUS 
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1583 


FBE7 E601 




AN I 


QMBUSY ; BUSY? 


1584 






JRNZ 


DPRWSET ; YES - WAIT UNTIL NOT BUSY 


1585 


FBE9+20FA 




DB 


20H,DPRWSET-$-l 


1586 


FBEB E3 




XTHL 


; NEED SOME DELAY. WE'LL UNDO IT SOON 


1587 


FBEC 3ED0 




MVI 


A,QCTERM ; SEND TERMINATE COMMAND 


1588 


FBEE D360 




OUT 


QPCOMD ; TO FORCE TYPE 1 STATUS 


1589 


FBFO E3 




XTHL 


; DELAY - MATCHES THE ONE ABOVE 


1590 


FBFl 0E63 




MVI 


C,QPDATA ; SET UP DATA PORT NUMBER 


1591 






LDX 


L^DMALOW ; SET UP DMA ADDRESS 


1592 


FBF3+DD6E04 




DB 


ODDH , L * 8 + 4 6H , DM ALOW 


1593 






LDX 


H,DMAHI 


1594 


FBF6+DD6605 




DB 


0DDH,H*8+46H,DMAHI 


1595 






LDX 


A^SECTN ; GET SECTOR NUMBER 


1596 


FBF9+DD7E02 




DB 


ODDH , A* 8 +4 6H , SECTN 


1597 


FBFC E61F 




AN I 


SECNUM ; ISOLATE SECTOR NUMBER 


1598 


FBFE D362 




OUT 


QPSECRG ; SEND IT TO FDC 


1599 


FCOO E3 




XTHL 


; DELAY BEFORE STATUS READ 


1600 


FCOl E3 




XTHL 




1601 


FC02 E3 




XTHL 




1602 


FC03 E3 




XTHL 




1603 


FC04 E3 




XTHL 




1604 


FC05 E3 




XTHL 




1605 


FC06 F3 




DI 


; DISABLE FOR DISK I/O 


1606 


FC07 DB60 




IN 


QPCOMD ; GET FDC STATUS 


1607 


FC09 E620 




AN I 


QMHLT ; HEAD ALREADY LOADED? 


1608 


FCOB 7B 




MOV 


A,E ; GET COMMAND 


1609 






JRNZ 


DPRWSET4 ; ; SKIP IF HEAD ALREADY LOADED 


1610 


FCOC+2002 




DB 


20H,DPRWSET4-$-l 


1611 


FCOE F604 




ORI 


QMEFLG ; ADD HEAD LOAD FLAG 


1612 




DPRWSET4: 




1613 


FCIO D360 




OUT 


QPCOMD ; SEND TO CONTROLLER 


1614 


FC12 C9 




RET 




1615 










1616 










1617 






• GETDRV - 


GET DRIVE NUMBER FROM PACKET 


1618 










1619 






' ENTRY: IX = 


= PACKET ADDRESS 


1620 










1621 






• EXIT: A = DRIVE NUMBER 


1622 










1623 




GETDPV: 




1624 






LDX 


A, DRIVEN ; GET DRIVE NUMBER 
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1625 


FC13+DD7E02 




DB 


ODDH, A*8+4 6H, DRIVEN 


1626 


FC16 E660 




AN I 


DRVNUM ; ISOLATE IT 


1627 


FC18 07 




PLC 


; MOVE INTO BITS 0-2 


1628 


FC19 07 




PLC 




1629 


FCIA 07 




PLC 




1630 


FCIB C9 




RET 




1631 










1632 










1633 






\ SETRAK - 


STORE TRACK NUMBER IN TRACK TABLE 


1634 










1635 






? ENTRY: A = 


TRACK NUMBER 
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IX = 


PACKET ADDRESS 




1637 














1638 






• EXIT: 


TTRACK 


CONTAINS NEW TRACK VALUE 


1639 














1640 






SETRAK: 








1641 


FCIC 


3231FC 




STA 


BTRACK 


' CURRENT TRACK FOR CURRENT 


1642 


FCIF 


47 




MOV 


B,A 


• SAVE TRACK 


1643 


FC20 


CD13FC 




CALL 


GETDRV 


• GET DRIVE NUMBER 


1644 


FC23 


E602 




AN I 


2 


** FOR RX-50 COUPLING 


1645 


FC25 


5F 




MOV 


E,A 


• MAKE 16-BIT DRIVE NR 


1646 


FC26 


1600 




MVI 


D,0 




1647 


FC28 


21F0FF 




LXI 


H, TTRACK 


• BASE OF TRACK TABLE 


1648 


FC2B 


19 




DAD 


D 


• OFFSET INTO TABLE 


1649 


FC2C 


70 




MOV 


M,B 


• STORE TRACK 


1650 


FC2D 


C9 




RET 






1651 






7 








1652 






7 








1653 
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1654 
1655 
1656 



1657 








; DATA AREA 






1658 
















1659 


FC2E 


FF 


BCURDRV 


DB 


OFFH 


; CURRENT DRIVE NUMBER 


1660 


FC2F 


00 


BFORMAT 


DB 





; FORMAT FOR CURRENT DRIVE (NONZERO = VT-180) 


1661 


FC30 


FF 


TCURDRV 


DB 


OFFH 


7 CURRENT DRIVE # WITH PRE COMP SET IF NECESSARY 


1662 


FC31 


FF 


BTRACK 


DB 


OFFH 


7 CURRENT TRACK OF SELECTED DRIVE ("TRUE" TRACK) 


1663 
















1664 








'TTRACK 


DB 


OFFH, 


OFFH, OFFH, OFFH ; TRACK TABLE 



1665 ;TFORMAT DB 0,0,0,0 ; FORMAT TABLE (NONZERO = VT180) 

1666 7** NOTE: TTRACK AND TFORMAT ARE IN THE DATA BLOCK. THEY ARE DEFINED 

1667 7 AT THE END OF THIS MODULE (Z 8 OCODE . ASM) , NEXT TO THE PACKET 

1668 7 POINTER DEFINITIONS (Z80PKT AND I88PKT) 
1669 

1670 

1671 PAGE 
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1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 



FC32 F3 
FC33 319CFC 



*********************************************** 

NAME: Z START 

FUNCTION: THIS ROUTINE WILL SET UP THE STACK AND ALLOW THE Z80 
TO EXECUTE AN APPLICATION. 

ENTRY: IX = PACKET ADDRESS 

EXIT: 

Z START: 



DI 

LXI SP, STACK 



; DISABLE INTERRUPTS WHILE 
7 SWAPPING STACKS 
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1687 




1688 


FC36 210000 


1689 




1690 




1691 




1692 




1693 


FC39 E5 


1694 




1695 


FC3A 3EFF 


1696 


FC3C 329DFC 


1697 




1698 




1699 


FC3F+DD6E02 


1700 




1701 


FC42+DD6603 


1702 




1703 


FC45 FB 


1704 




1705 


FC46 E9 


1706 





CP/M MACRO ASSEM 2.0 

1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 

CP/M MACPO ASSEM 2.0 



FC47+DD6E02 
FC4A+DD6603 

FC4D+DD5E04 
FC50+DD5605 

FC53+DD4E06 
FC56+DD4607 

FC59+EDB0 
FC5B C9 



LXI H,0 



PUSH 00 ONTO STACK FOP CP/M- 80 
TRANSIENTS THAT END WITH 'PET' 
SO IT WILL BE SAME AS ENDING 
WITH 'JUMP 0' 



PUSH H 

MVI A, TRUE ? SET DONE FLAG 

STA DONEFL 

LDX L^STADRL ; GET START ADDRESS FROM PACKET 

DB ODDH , L*8+4 6H , STADRL 

LDX H,STADRH 

DB 0DDH,H*8+46H,STADRH 

EI ; ENABLE INTERRUPTS 

PCHL ; JUMP TO START ADDRESS 

PAGE 
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************************************************ 



; NAME: ZMOVE 

; FUNCTION: THIS ROUTINE WILL MOVE A BLOCK OF DATA FROM ANYWHERE IN 
; Z80 MEMORY TO ANYWHERE ELSE IN Z80 MEMORY. 

; ENTRY: IX = PACKET ADDRESS 

; EXIT: IX = PACKET ADDRESS 

ZMOVE: 



LDX 


L,SCADRL 


? 


GET SOURCE ADDRESS INTO 


DB 


0DDH,L*8+46H,SCADRL 






LDX 


H^SCADRH 






DB 


0DDH,H*8+46H,SCADRH 






LDX 


E,DSADRL 


? 


GET DESTINATION ADDRESS 


DB 


0DDH,E*8+46H,DSADRL 






LDX 


D,DSADRH 






DB 


0DDH,D*8+46H,DSADRH 






LDX 


C^BYCNTL 


? 


GET BYTE COUNT INTO BC 


DB 


0DDH,C*8+46H,BYCNTL 






LDX 


B.BYCNTH 






DB 


ODDH , B* 8+4 6H , BYCNTH 






LDIR 




? 


MOVE THE BLOCK OF DATA 


DB 


OEDH^OBOH 






RET 






AND RETURN 
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1739 






1740 






1741 






1742 






1743 


FC9C 


= 


1744 






1745 


FC9D 


= 


1746 






1747 


FFFC 


= 


1748 






1749 


FFFF 


= 


1750 






1751 






1752 






1753 






1754 


FFFO 




1755 


FFF4 




1756 






1757 


FC9E 




1758 






1759 


FC9E 





******************************************* 

***************************************************************** 

SERVICE ROUTINE STACK POINTER 
DONE FLAG 

PACKET POINTER FOR PACKET FROM Z80 

PACKET POINTER FOR PACKET FROM 8088 

FOLLOWING TWO DEFINITIONS ARE FOR THE DISK I/O ROUTINES. 
THE TABLES ARE LOCATED IN THE DATA BLOCK, INITIALIZED BY THE BIOS 
COLD BOOT ROUTINE AND MOVED BY Z80CCP WHEN A CONFIGURATION CHANGE OCCURS. 
TTRACK EQU INTFPTR-12 ; TRACK TABLE 

TFORMAT EQU INTFPTR-8 ; FORMAT TABLE 



STACK 


EQU 


$+40H 


DONEFL 


EQU 


STACK+1 


Z8 0PKT 


EQU 


INTFPTR 


I8 8PKT 


EQU 


INTFPTR+2 



ORG 



END 



DONEFL+1 



CP /M M APPn 


A QQPM n 

AoooW Z • U 


•tt n A n 

U ft u 


7 Q 


PSEUDO, INTERFACE 


t\]S U 






uUUU 
















BLUKuKV 




O Dl 


^ CiQ A 

lU o4 


1441 


1451 


1479 


1 /r c Q Ji 

1 boy ff 




BDCS 


n n o 
UUUZ 


O C JL 

35# 


/ Z 












DrUKMAl 


CP o c 
r VwZr 


Q Q 

O JO 


y 4 y 


994 


1288 


1489 


1 DO U ff 




BIOCS 


0001 


34# 


79 


263 










BOOT 


F736 


226 


246# 












BTRACK 


FC31 


985 


1003 


1285 


1481 


1491 


1641 


1662# 


BYCNTH 


0007 


440# 


1732 


1733 










BYCNTL 


0006 


439# 


1730 


1731 










CONIN 


F762 


229 


270# 












CONOUT 


F76A 


89 


230 


274# 










CONST 


F74D 


90 


228 


258# 










CONSTl 


F75A 


260 


261 


265# 










CSFLAG 


FFE7 


33# 


71 


78 


262 








DE 


0002 
















DELAY7 


FA2E 


1087 


1094# 












DKCHECK 


F8F2 


544 


814# 












DKCHECKl 


F901 


818 


819 


823# 










DKCHECK2 


F904 


821 


822 


827# 










DKCHECK3 


F927 


825 


826 


842 


843 


846 


847 


849# 


DKREAD 


F93B 


531 


869# 












DKRW20 


F94C 


873 


879# 


892 


893 








DKRW30 


F958 


883 


884 


888# 










DKRW40 


F95B 


886 


887 


890# 










DKRW90 • 


F968 


875 


876 


902# 










DKRW95 


F96D 


898 


899 


906# 










DKRWSIO 


F9BB 


987 


988 


993# 










DKRWS20 


F9C5 


998 


999 


1001# 










DKRWSET 


F9A8 


871 


982# 












DKWRIT 


0014 


427# 














DKWRITE 


"93B 


534 


870# 
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DMAHI 


0005 


686# 


934 


935 


937 


938 


1593 


DMALOW 


0004 


685# 


1591 


1592 








DONEFL 


FC9D 


472 


591 


627 


648 


1696 


1745# 


DPCOMD 


FBDD 


1241 


1253 


1312 


1394 


1561* 

J. ^ U X IT 




DPCOMDl 


FBDF 


1563# 


1567 


1568 








DPRDADR 


FA2F 


1108# 


1361 










DPRDADRX 


FA3 2 


X ± J. J. # 












DPREAD 

X^ JET X\JUIfALy 


F9CB 


O O J 












JL/ Jt X\ C< n i/ A 




X U Z o iF 












l^XrlvEiAlJZi 


r i7U± 


Q AT 
O 41 


1 n * 

xUZDff 










DPRECAL 


FAAl 




17 O !7 


1 1 7fi 

X X / D 


1 2*^44 

X ZO *l ff 


1 2QA 


X J •* •* 


DPRETAT.! 


r t\t\ 1 




1 OAO 


X J 








DPRECALX 


FAB2 


1235 


1244 


1 2R1 4 

X z :^ X If 








DPRECALXl 


FAC2 


1257 


1258 


1263# 








DPRWEIO 


FAS 5 


1142 


1143 


IISO* 

X J. J U IT 


1171 


1184 


1204 


DPRWE15 


FA57 


1152# 

J. J. ^ ^ TT 


1162 


1163 








DPRWE20 


FA69 


1145 


1146 


1170# 








DPR WE 80 


FA9B 


1177 


1178 


1180 


1181 


1197 


1198 


DPRWE90 


FAAO 


1137 


1157 


1217# 








DPRWEX 


FA47 


1021 


1051 


1109 


1134# 






DPRWSET 


FBE5 


1031 


1063 


1115 


1581# 


1584 


1585 


DPRWSET4 


FCIO 


1609 


1610 


1612# 








DPSEEK 


FAC7 


874 


1284# 










DPSEEKl 

J—' X ih.^ XJ LLi x\ J- 


FACC 


1179 


1 1 QQ 

X X 2/ 27 


1287# 








i— ' IT kj U X-J X\ ijj 


FAF4 




1 "^07 
X J u / 


1319# 


1358 


1359 




CP/M MACRO 


Cx %J \J LJUl £i » yj 


■tf- U ** X 


Z 8 


PSEUDO, INTERFACE 


; j^ND 


DPSEEKN 

JL^ X Im/ xj xj x\ 


FB27 


1360 


1388# 


1432 


1476 


1496 




DPSEEKV 


FAF8 


1290 


1338# 










DPSEEKVX 


FB09 


1339 


1340 


1346 


1347 


1353# 




DPSEEKX 


FADE 


1192 


1291 


1296 


1302# 






DPSEKHO 


FB23 


1383# 


1474 


1529 








DPSEKN3 


FB29 


1385 


1386 


1390# 








DPSELl 


FB41 


1416 


1417 


1419# 








DPSEL2 


FB47 


1423# 


1429 


1430 








DPSEL3 


FB5E 


1426 


1427 


1440# 








DPSEL'^A 


FB7E 


1 4S7 

X *± J / 


1458 


1472# 








DPSEL3C 


FB88 


1437 


1438 


1448 


1449 


1464 


1465 


DPSEL4 


FRQr 


X ** ** o 


1444 


1490# 








DPSEL5 


FBAl 


1494# 












DPSEL6 


FBA9 


1503# 












DPSELDR 


FB32 


817 


983 


1409# 








DPSELS 


FEB 8 


1508 


1509 


1512# 


1523 


1524 




DPSELSl 


FBC6 


1516 


1517 


1525# 








DPSELS2 


FBC7 


1435 


1436 


1527# 








DPWRITE 


F9E7 


889 


1050# 










DPWRT3 


FA17 


1075 


1076 


1078# 








DPWRTX 


F9EA 


1053# 












DRIVEN 


0002 


682# 


832 


833 


1624 


1625 




DRVNUM 


0060 


689# 


834 


1626 








DSADRH 


0005 


438# 


1727 


1728 








DSADRL 


0004 


437# 


1725 


1726 








DSKFNC 


0010 


414# 












ERROR 


F890 


549# 












FALSE 


0000 


3# 


4 


6 


471 


626 





1594 



1205 



1200 1201 1209# 
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FDOSM 


0090 


32# 


66 










FNCCOD 


0000 


527 


528 


680# 


881 


882 


1445 


FNCNG 


OOFF 


425# 


551 


552 








FRANCE 


OOFO 


411# 












GETDRV 


FC13 


1410 


162 3# 


1643 








GETRAK 


FBD2 


1480 


1543# 










GONOW 


F80E 


65 


96 


100 


352 


371# 




GSODRV 


FA19 


1060 


1071 


1083# 








GTABLE 


F6BA 


61 


177# 










HIFNC 


F8B4 


537 


538 


588# 








HIFXIT 


F8BC 


518 


595# 










HL 


0004 














HOME 


F7 8A 


234 


290# 










HSAVE 


F80A 


135 


144 


358 


366 


369# 




I88INT 


0000 


401# 


508 


566 


629 






I8 8PKT 


FFFE 


504 


506 


1749# 








I8 8SVC 


F8C7 


99 


OCT 


621# 








INII 


A2ED 


790# 


1024 










ININ 


63DB 


792# 


840 


1112 








INOROUT 


0046 


787# 


1026 


1055 


1113 






INTBIT 


0004 


406# 


570 


633 








INTCLR 


F8D2 


631# 


634 










INTFPTR 


FFFC 


391# 


394# 


1747 


1749 


1754 


1755 


INTSTA 


0020 


402# 


dd9 


632 








INTSTR 


F843 


458# 












lOBCHK 


F7E0 


75 


259 


338# 








lOBYTE 


0003 


31# 


152 


166 


338 


343 


347 


IPKT 


F673 


111# 


161 


163 


600 


602 
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#042 


Z80 


1 PSEUDO, INTERFACE 


AND 



SHARED VERSION 



IX 0004 
lY 0004 



JUMP 


00C3 


404# 


















LEGFUN 


0007 


422# 


















LIST 


F772 


231 


278# 
















LISTST 


F7C4 


241 


319# 
















NEXTSCIO 


F998 


947 


948 


953# 














NEXTSC15 


F9A3 


945 


946 


962# 














NEXTSC20 


F9A4 


951 


952 


963# 














NEXTSEC 


F973 


891 


923# 
















NSECT 


0006 


687# 


927 


928 














NUMSEC 


OOOA 


429# 


















OTHFNC 


0020 


415# 


















OUT 1 1 


A3ED 


791# 


1054 
















PACKET 


F675 


95 
249 


97 


98 


112# 146 


148 


149 


151 


153 


248 


PACKIT 


F67F 


60 


133# 


246 


254 266 


270 


274 


278 


282 


286 






290 


294 


299 


303 307 


311 


315 


319 


334 




PCONS 


F634 


48 


49 


71# 














PCONSl 


F645 


73 


74 


80# 


264 












PDRC 


F649 


53 


54 


84# 














PDRCl 


F6 52 


86 


87 


90# 














PGIOB 


F7E8 


56 


343# 
















PKTPRO 


F855 


462 


499# 
















PKTRl 


F8A1 


568# 


571 
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PKTRET 


F895 


522 


D D *t ff 










PRIVATE 


0000 




11 


17 








PSBDl 


p^\ 1 p 


Rn 


R 1 

Dl 


c; Q 4 
ff 


7 c 
/ b 


7 7 

/ / 


Q 1 Q 7 

y 1 y z 




p^; nn 
r D u u 


Q Q A 


9 7 7 
Z ZZ 










PSBD0<^1 


Pfi Ofi 
r u u o 




4 Off 












P A Rfi 
rODo 


D / 


Q 4 

y Jff 










It O EiUlyJ. 


1? £ £ T? 


1 n A # 












It O £i U LN 


p'TPl 


9 ^^7 

zo / 


7 71 
Z / 1 


9 7 t: 


7 7 Q 

z /y 


7 Q "3 
ZOO 


7Q7 7Q1 7Qt: Oftft 

zo / zyi Zyo oUU 






"5 n o 


olz 


316 


ft 
ozO 


1 c 

335 


350# 


PC l?rTY 
ir O EjU A 


r? b zD 


"7 A 


c c 
ODD 










PCTOR 

Jt O X V/D 


P'7PP 


Q 
D C5 


Q AC 4 

o4bff 












r 4 ± 


141 


"7 C 4 

oVbff 










"DC on A iro AT7 


r o UL 


TOO 

loo 


140 


OCT 

obl 


obo 


T ft Jl 

o70ff 




PUNCH 


P7 7 A 


9 9 
Z J z 


9 P 9 4 
Z Z ff 












U ULU 


70 1 * 

/ zlff 


1114 












n rt Q n 
U UoU 


/lot 


1 n "J ft 
1 UoU 












u u u o 


71 94 
/ Izf 


1 9«;9 
1 Z z 












n m p 


71 "5* 
/ 1 of 


1 *? 1 1 
loll 












UUlo 


7 1 A * 

/14f 


1 Q Q 

1 ooy 












n m n 
u u± u 


71 *^4 
/ 1 Off 


1 ft 










VV<0 JL £tJr xlN 


UUflO 


71^4 
/luff 


1 9 A n 

1 Z4 U 










r\ p C T 1? 13 A T 


n n ^ fi 
U Ud o 


7 1 7 * 
/I / ff 












OPTPPM 


nnnn 
u uuu 


7994 
/ ZZff 


1 1 

1 1 D ft 


1 t^P7 
1 D / 








OPWPTPTf 
SJv^WJKi I\J\ 


u Ur u 


7 90 4 
/ ZUff 












QCWRTS 


OOAO 


719# 


1062 










QKCMCOM 


0015 


543 


695# 












or* >i n 
yL4 U 


/o4# 


1 C ft 

1 bUz 










yixUKEi 1 Kx 


UUU4 


/D Jff 


1 iDl 












n n n a 
UUUA 


7 C Q 4 

/ boff 


oob 


944 










004F 


T C "7 Jt 

Vb /# 


1 1 ft ft 
1 19 U 


1191 


1305 


1357 




yiMrv^ Dx i 


U U4 u 


7 C C 4 

/bbff 


1 X 1 Q 

1 41 y 
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ffU*tO 


7 R n 

^ u 


1 PSEUDO, INTERFACE 


AKTH PPTMTTTVP POFTTTMPQ 
fttMU Jr I\ XPl X X X V El JaWUXXLNDO 




UU jU 


/ ODff 


^ A^ A 










OKRATP 

\^ L\ X\ £1 X Lj 


nnnn 

u u u u 


7nft 4 


719 
/ X z 


713 


714 


715 


71 717 

/ X / X / 


IV r\ L/v* w ri 


U U X J 


R n 

D J U 


C Q 7 4 
b!70 ff 


880 








OKROBTN 


nnn^ 

U U vl Z 


7fiQ4 


*i 










QKWTCOM 


0014 


533 


f)Q44 


1447 








OMBriSY 


nnm 

U U U X 


/ JJff 


1 A^ 


746 


747 


748 


lAQ PQC On'^ 1919 
/ ft ^ o!7b !7U0 XZXZ 






1 49R 

X ft z □ 


1 A 9 P 
X 4 z 


1583 








QMCRC 


nnnft 

u u u o 


7'^n4 

/ JUff 


1 Afi 


747 


748 


749 


1 n77 1 1 A. A 
XU// XXftfk 


V n U £j Li L»rl 


uu zu 


7 A 1 # 
/ 41ff 


7 A 7 
/ 4 / 










OMriPTJP 


n nn 

U U U J 


7 t>Q 4 
/ ff 














n nn 9 

u u u z 


7 4n 4 

/ «*U ff 












HMPPT (Z 
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